Private TestFile As String = System.IO.Path.Combine("E:\", DataName)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Test(cbBox, TestFile)
    End Sub
 
Public Sub Test(ByVal Combobox As ComboBox, ByVal TestFile As String)
        'Dim strIPAddress As String
        Dim oIPAddressWriter As IO.StreamWriter
        Dim intline As Short
 
        TestFile = "E:\IPAdressen.txt"
        oIPAddressWriter = New IO.StreamWriter(TestFile)
 
        For Each item As Object In cbBox.Items
            oIPAddressWriter.WriteLine(Combobox.Items(intline))
            intline = intline + 1
        Next
 
        oIPAddressWriter.Close()
 
 
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Read(cbBox, TestFile)
    End Sub
 
    Public Sub Read(ByVal Combobox As ComboBox, ByVal TestFile As String)
        Dim oIPAddressReader As IO.StreamReader
        Dim intline As Short
        TestFile = "E:\IPAdressen.txt"
 
        oIPAddressReader = New IO.StreamReader(TestFile)
        For i As Integer = 0 To 2
            cbBox.Items.Add(oIPAddressReader.ReadLine)
        Next
 
        oIPAddressReader.Close()
 
 
    End Sub