Textbox automatically format as time and make sure actual time

[sharky12345]

I'm using this to format a Textbox as a time value;

Private Sub txttime_Change()
Dim T As Date

If Len(txttime.Value) = 4 Then
On Error Resume Next
T = TimeSerial(Left(txttime.Value, 2), Right(txttime.Value, 2), 0)
On Error GoTo 0
ElseIf Len(txttime.Value) = 5 Then
On Error Resume Next
T = TimeValue(txttime.Value)
On Error GoTo 0
End If
If T > 0 Then
txttime.Value = Format(T, "hh:mm")
End If
If KeyCode = vbKeyTab Then
End If

End Sub

Is there a way I can make sure that the time that is entered is an actual time and if not get a message prompting to enter a new time?

Also, I want to allow numerical key presses and a backspace so they can clear the box if they want to but no other key presses permitted. At the moment I'm getting an error if I try to clear the Textbox with a backspace.

 

[snb_]

Use a combobox as dropdownlist (style=2) containing only valid timevalues.

 

[sharky12345]

Thanks - I want to avoid anything where the user has to click multiple times simply to enter a time and have seen a 'Time Picker' which has a spin button to enter a time, I think that would be quite frustrating if they had to use buttons. However, if there is a way to enter the time quickly using keys and your suggestion then that would be fine.