hmmmm so I place the combo box down, double click it and do I just add the above like this:

Code:
Private Sub Combo1_Change(Index As Integer)
With Combo1
.AddItem "Keyword 1"
.AddItem "Keyword 2"
.AddItem "Keyword 3"
.AddItem "Keyword 4"
.AddItem "Keyword 5"
End With
End Sub