Grazie ma è stato un mio sbaglio, avevo dichiarato la variabile come Date in vece sarebbe dovuta essere String! ora funziona

Dim Data as string = Format(Now.Date, "dd/MM/yy")

Ciao a buon rendere