Dim i As Integer
        Dim sw As New System.IO.StreamWriter("Netzwerk.txt")
        For Each IP In AddressList
            sw.WriteLine(IP.ToString & " optimat optimat")
        Next
        sw.Close()

mfg
rt