Dim tbs() As TextBox = {TextBox1, TextBox2, TextBox3}
        Dim sw As New IO.StreamReader("C:\test.txt")
        For Each tb As TextBox In tbs
            tb.Text = sw.ReadLine
        Next
        sw.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist