Visual Basic - problemas con una alarma

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?

Juan, tu problema es que estas preguntando por el tipo de variableOFFTime no por el contenido, por eso es que simpre te da que es tipo fecha. Esas instrucciones se usan en las bases de datos para saber que tipo de variable es, pero siempre por el tipo y no por su contenido. Tendras que validar vos la fecha.
Suerte, Daniel.