Combo Box date format also to accept text

Hi I have a form with several combo boxes. The combo boxes are programmed to only accept a time format from the drop down list. But i alse have to alow the user to select either start or finish as a text option.


the code I have so far is

Private Sub FriFinish1_Change()
    Static Disabled As Boolean
    If Disabled Then Exit Sub
    Disabled = True
    FriFinish1.Value = Format(Val(FriFinish1.Value), "hh:mm")
    Disabled = False
        
End Sub

I have added the text options to the drop down, but when they are selected the program crashes and foes into debug mode. Does anyone know of a way to prevent this. The only text I want the user to select is start or finish.

Many thanks
Nods