Private Sub TextboxFuellen(ByVal Textboxname As String, ByVal Wert As _
      String)
 
        Dim tb As TextBox = Me.Controls(Textboxname)
        tb.Text = Wert
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim Textdatei As String = "D:\test\import.txt"
        Dim Zeileninhalt() As String = Nothing
        Dim sr As New System.IO.StreamReader(Textdatei)
        Dim Inhalt As String = sr.ReadToEnd.Replace(vbLf, "")
        Dim Zeilen() As String = Inhalt.Split(vbCr)
        Dim i As Integer = 0
 
        For i = 0 To Zeilen.Count - 1
            Zeileninhalt = Zeilen(i).Split(":")
            If Zeileninhalt.Length > 1 Then
                TextboxFuellen(Zeileninhalt(0), Zeileninhalt(1))
            End If
        Next
 
        sr.Close()
 
    End Sub

EALA FREYA FRESENA