Private Sub öffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles öffnenToolStripMenuItem.Click
        Dim dlg As New OpenFileDialog
        Dim rslt As New DialogResult
        rslt = dlg.ShowDialog
        If rslt = Windows.Forms.DialogResult.OK Then
            Dim tr As String = dlg.FileName
            For HS As Integer = 1 To 2                  ' Label Nummer
                Dim Zeile As String = tr.ReadLine    ' Eine Zeile lesen
                Dim Werte() As String = Zeile.Split(";")   ' Splitten
                For IX As Integer = 0 To 2              ' Index Nummer
                    Me.Controls("lblHS" & HS & "Index" & IX).Text = Werte( _
                      IX).Trim
                Next
            Next
        End If