The ClickEvent sends a numeric parameter (1,2,3) to a Sub called Response

Change these to an OnClick Event
eg.
[vba]
Private Sub cmbd1_Click()
Call Response(1)
End Sub
[/vba]
And the Same for cmbd2 and cmbd3 - sending 2 or 3.

Hope this helps,
=DarkSprout=