Visual Basic para Aplicaciones - urgente, ALARMA

Muy guenas.
Mu problema es el siguiente, mi proyecto se compone de varios formularios, donde uno de ellos es una alarma, y su codigo 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
_____________________-
Este codigo no funciona, alguien me puede ayudar, necesito saber en qué me he equivocado, o comunicarme otras alternativas para otra alarma.
Muchas gracias.