I have a question concerning the combo box control. I created a form with a combo box. If the form are loaded some items are added to the combo box.

In my original programme I implemented to the click event an If clause (See below). If the if clause is wrong then the a MsgBox with warning should appear and the combo box shall be set to a predefined value. In my example "today". If I performe this action the combo Box stays blank after the click event. Do you have any Idea how to performe this command


Private Sub Form_Load()

Combo1.AddItem "monday"

Combo1.AddItem "tuesday"

Combo1.AddItem "wendsday"

End Sub


Private Sub Combo1_Click()

IF....then

MsgBox "WARNING", vbCritical + vbOKOnly, "Warning"

Combo1.Text = "today"

endif

End Sub