Combo Box date format also to accept text

The user has a list to select from:

Start
00:00
00:15
00:30

If the user slects start it breaks and goes into debug mode because it isn't in the hh:mm format.

My question is is there a way of being able to set a combo box to display the hh:mm format and the word start?

Many thanks

I'm not in front of the work book but was on this peice of code bin the change control of the combo box. It is because it is set to hh:mm format I need it to be able to also accept the word 'Finish'.

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

Apologies, it broke to the debug when I was trying this peice of code with the error "type mismatch."

 FriFinish1.Value = Format(Val(FriFinish1.Value), "Finish", "hh:mm")

With out the "Finish" it just displays 00:00 when Finish is selected.

Kind regards

Nods

If I don't Format the values as time they just appear as decimal numbers. The text field is already in the list index and appears in the drop down menu on the combobox, it is just that when the text field is selected it is displayed as 00:00.

It is bound using row source!

Thanks I have look at that forum. It looks like i would need to write the list in the event for all combo boxes. I have alot of comboboxes and the list is also long.

would be a hell of a lot of code.

Just for inforamtion I have solved the problem with the below code.

Thanks for your help.

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

    Disabled = False
  
    End Sub