Gareth wrote:

I have text box on a user form, the user is to enter time taken to do a
certain task in it.

I want the time to be entered in time format - h:mm

The number of hours can be 0 to 100

In the OK click code I want to check if the entry is correct, that is, 3rd
from the right is a':' and the last two digits are less than 60

Examples:
9:45 OK
9:75 Not OK

The entry is then put into a cell within the file.

Private Sub CommandButton1_Click()
Dim ok As Boolean, arr As Variant
ok = False
If TextBox1 Like "*#:##" Then
arr = Split(TextBox1, ":")
If IsNumeric(arr(0)) Then
If arr(0) <= 100 And arr(1) < 60 Then
ok = True
End If
End If
End If
If ok Then ActiveSheet.Cells(1, 1).Formula = TextBox1
End Sub

--
Steve Garman