Mensaje enviado por "Horacio Arturo Begué" <lorhab@concordia.com.ar>

Pon en módulo lo que sigue:

Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As
SYSTEMTIME) As Long
Type SYSTEMTIME
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Luego, para ejecutar el proceso: (en este caso un CommandButton)

Private Sub Command1_Click()
Dim systime As SYSTEMTIME
Dim retval As Long

systime.wYear = 1999
systime.wMonth = 01
systime.wDay = 01
systime.wHour = 9
systime.wMinute = 22
systime.wSecond = 0

retval = SetSystemTime(systime)
End Sub

Una aclaración respecto del código:
La hora se modifica respecto de la GMT, por lo cual debe tomarse la precaución de adicionar o restar las horas según el huso horario de la zona donde se aplique la técnica.
Por ejemplo: En Argentina para modificar la hora, se deben sumar 3 horas, es decir que el systime.wHour que se desea quede a las 10 AM, se debe poner: systime.wHour = 13

Espero haberme hecho entender.