Visual Basic - Problema con una alarma, urgente

hola, mi problema es el siguiente, tengo un proyecto con varios formularios, en uno tengo el timer, y en otro tengo uu formulario con una alarma, su codigo fuente es el siguiente

Option Explicit
Dim ONTime
Dim OFFTime

Private Sub Form_Load()
ONTime = ""
OFFTime = ""
End Sub

Private Sub cmdCancel_Click()
Unload temporizacion
End Sub

Private Sub TextON_ClicK()
TextON = ONTime
End Sub

Private Sub TextOFF_ClicK()
TextOFF = OFFTime
End Sub

Private Sub cmdOK_Click()
If ONTime = "" And OFFTime = "" Then Exit Sub
If Not IsDate(ONTime) Then ' Si la hora no se escribe correctamente.'
MsgBox "La hora de encendido no es válida."
If Not IsDate(OFFTime) Then ' IDEM'
MsgBox "La hora de apagado no es válida."
End If
Else ' La cadena devuelta por InputBox es una hora válida,
ONTime = CDate(ONTime) ' de modo que se almacena en ONTime como hora.
OFFTime = CDate(OFFTime) ' de modo que se almacena en OFFTime como hora.
End If
End Sub

La cuestion es que cuando introduzco unos caracteres distintos a la hora, no me salta la texbox advirtiendome q me he equivocado.
¿Qué error he cometido?

Mirá, primero te dirá que para que no tengas que ingresar la hora a mano busques un control que se llama DTPicker que viene incluido con el visual 6 (lo trae uno de los Service Pack) que automáticamente te regula el ingreso de la hora y no necesitas meter nada de código.

El otro problema que tenes es que la asignación la estás haciendo al reves y además que las variables ONTime y OFFTime las tenés que definir como publicas dentro de un Módulo para que sean común al proyecto.

Public ONTime as Date
Public OFFTime as Date

Private Sub TextON_ClicK()
ONTime = TextON
End Sub

Private Sub TextOFF_ClicK()
OFFTime = TextOFF
End Sub

El proyecto es muy fácil, con esto no tendrías que tener ningún problema, cualquier cosa avisame.

Afogutu.