Rileggi la risposta di JamesD.

codice:
Dim MyTime
MyTime = #4:35:17 PM#       ' Assegna un orario.
Time = MyTime               ' Imposta l'ora di sistema su MyTime.
(Preso dalla guida)