Dim vFechaEjecutar As String
Dim vHoraEjecutar As String
 
Private Sub Form_Load()
    ' Cambia los valores de fecha y hora para probar manualmente
    vFechaEjecutar = "16/07/2011"
    vHoraEjecutar = "17:32"
 
    With Timer1
        .Interval = 1000
        .Enabled = True
    End With
End Sub
 
Private Sub Proceso1()
    MsgBox ("se ejecuto el proceso")
End Sub
 
Private Sub Timer1_Timer()
    Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora
 
    If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
        Timer1.Enabled = False
        Call Proceso1
    End If
End Sub