Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Dim strings As New ArrayList
        Dim sr As New StreamReader("C:\Dokumente und" & _
          "Einstellungen\pneu\Desktop\test.txt")
 
        While sr.Peek > -1
           strings.Add(sr.ReadLine())
        End While
        Do Until sr.Peek = -1
            Console.WriteLine(sr.ReadLine)
        Loop
        MoveLine(strings, 10, 4)
 
        sr.Close()
 
        Dim sw As New StreamWriter("C:\Dokumente und" & _
          "Einstellungen\pneu\Desktop\test.txt")
 
        For Each s As String In strings
            sw.WriteLine(s)
        Next
        sw.Close()
 
    End Sub
 
    Sub MoveLine(ByVal strings As ArrayList, ByVal from As Integer, ByVal [to] _
      As Integer)
        Dim tmp As String = strings(from)
        strings.RemoveAt(from)
        strings([to]) = tmp
        tmp = Nothing
    End Sub

sw.WriteLine("")

neu.Write((ZellenText & "........").Substring(0, 8))