Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        'da das Property .lines nur ein array annimmt, den Umweg über List(of T) 
        Dim line As New List(Of String)
        'Zeile für Zeile aus der Textbox auslesen
        For a As Integer = 0 To TextBox3.Lines.Length - 1
            If TextBox3.Lines(a).Contains("0") = False Then
                'wenn 0 nicht vorkommt, zeile in eine list(of string) schreiben
                line.Add(TextBox3.Lines(a))
            End If
        Next
        'List der Textbox zuweisen
        TextBox3.Lines = line.ToArray
        TextBox3.Refresh()
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus