How to add new data to combo box..and make it permanent ?

[arunrajput]

Private Sub ADD_size_Click( )

Dim A As String
A = InputBox("ENTER NEW TYPE")
Combo1.AddItem A
Combo1.ListInde x = Combo1.NewIndex

End Sub

[Guido Geurs]

This works for me.
Do You mean: after closing and reopening the program ?