Visual Basic - Problema con un If Normal

Hola, tengo un problema a la hora de hacer una comparación, os copio el codigo de mi reloj despertador y os digo que es lo que va mal:

Private Sub Form_Load()
hora.Caption = Time$
alarma.Enabled = True
End Sub

Private Sub meter_Click()
alarma.Enabled = False
End Sub

Private Sub Timer1_Timer()

If hora.Caption <> "00:00:00" Then
hora.Caption = Time$
If alarma.Text = hora.Caption Then
MsgBox ("ALARMAAAAAA")
alarma.Enabled = True
End If
End If
End Sub

el problema es que desde que que pongo el maskedbox para introducir la hora pues una vez lo valido a la hora de hacer la comparación nunca sale el msgbox

ya esta solucionado