Dim dlg As New OpenFileDialog
        With dlg
            .Filter = "Textdokumente (*.txt)|*.txt"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim AlleZeilen() As String = System.IO.File.ReadAllLines( _
                  .FileName) ' Datei zeilenweise auslesen
                If AlleZeilen.Length >= 2 Then ' Sicherstellen, dass Datei 
                ' mindestens zwei Zeilen hat
                    For HS As Integer = 0 To 1
                        Dim Werte() As String = AlleZeilen(HS).Split(";") ' 
                        ' Zeile splitten
                        For IX As Integer = 0 To 2
                            Me.Controls("lblHS" & HS & "Index" & IX).Text = _
                              Werte(IX).Trim
                        Next
                    Next
                End If
            End If
        End With