Hola
Para comprobar en el evento lost_Focus si solo ha introducido números, utiliza la función isnumeric de esta forma:
Código:
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox "Intro SOLO num"
Text1.SetFocus
End If
Otra opción, que en mi opinión es mejor es controlar lo que introduce según pulsa las teclas, es decir, controlarlo en el evento KeyPress, puedes probar el siguiente código:
Código:
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub
Y otra opción es meter la hora y los minutos en un mismo lugar utilizando el control MaskEdit que te permite seleccionar el formato, es decir, el usuario solo tiene que introducir los números, no los : de separación y si utilizas bases de datos podrás guardar la información de en tipo date/time.
--Saludos--