This is what I have so far and it works for adding an item to the combo box however it doesnt save. Once the program is restarted the item added to the box is gone...Help.

Any help is appreciated for another newbie.



Private Sub Combo1_Click()

Dim Message, Title, Default, retval, MyValue
If Combo1.Text = "OTHER" Then
Message = "Enter Item to add" ' Set prompt.

Title = "Adding an Item" ' Set title.
Default = "" ' Set default.



' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Combo1.AddItem MyValue
End If