Untitled

This code will allow you to save the contents of a combo box to a text file.

Private Sub cmdExit_click()
    Dim intIndex as Integer
    Dim intMaximum as Integer

    intMaximum = combo1.ListCount - 1

    Open "C:\combo.txt" For Output as #1
    For intIndex = 0 to intMaximum
        Print #1, combo1.List(intIndex)
    Next intIndex

    Close #1
End Sub


Private Sub LoadMyCombo()
    Dim strInput As String

    Open "C:\combo.txt" For Input as #1
    Do While Not EOF(1)
        Line Input #1, strInput
        combo1.AddItem strInput
    Loop

    Close #1
End Sub