Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        cb_ReadData(ComboBox1, "ComboBox.txt")
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        cb_WriteData(ComboBox1, "ComboBox.txt")
    End Sub
 
    Public Sub cb_ReadData(ByVal cb As ComboBox, ByVal sDataFile As String, _
      Optional ByVal bAppend As Boolean = False)
        If Not bAppend Then ComboBox1.Items.Clear()
        If System.IO.File.Exists(".\" & sDataFile) = False Then
            System.IO.File.Create(".\" & sDataFile)
        Else
 
            Dim sLine As String
            Dim SR As New IO.StreamReader(".\" & sDataFile)
 
            With ComboBox1.Items
                Do Until SR.EndOfStream = True
 
                    'Linie einlesen und aufteilen
                    sLine = SR.ReadLine()
                    ' in Combobox eintragen 
                    cb.Items.Add(sLine)
                Loop
            End With
            SR.Close()
        End If
    End Sub
 
    Public Sub cb_WriteData(ByVal cb As ComboBox, ByVal sDataFile As String)
        Dim sw As New IO.StreamWriter(".\" & sDataFile, False, _
          System.Text.Encoding.Default)
        If cb.Items.Count = 0 Then
            Exit Sub
        Else
            Using sw
                For i As Integer = 0 To cb.Items.Count - 1
                    Dim text As String = cb.Items.Item(i).ToString
                    sw.Write(cb.Items.Item(i).ToString)
                    sw.WriteLine()
                Next
            End Using
            sw.Close()
        End If
    End Sub

fg viperbone