'irgendwo definiert
      Dim txtHöhe, txtBreite, txtTiefe As New TextBox
 
 
        Dim txt As TextBox = Nothing
        Dim lines() As String = IO.File.ReadAllLines("Pfad zur Detei")
 
        For i As Integer = 0 To lines.Length - 1
            Dim parts() As String = lines(i).Split(":"c)
            If parts.Length = 2 Then
                Select Case parts(0)
                    Case "Höhes" : txt = txtHöhe
                    Case "Tiefes" : txt = txtTiefe
                    Case "Breites" : txt = txtBreite
                End Select
                txt.Text = parts(1)
            End If
        Next i