help with Textboxes

[compusheaf]

I have couple of textboxes in my form. I want users to input data in format of HH:MM in those textboxes. Can anyone help me how should I control user inputs with an if condition ?

 

[DiscoPistol]

If Mid(TextBox1.Value, 3, 1) <> ":" Then
If Mid(TextBox1.Value, 1, 3) > 2 Then
' You can keep going here
MsgBox "This is the incorrect format"
TextBox1.Value = ""
Exit Sub
End If