Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim tr = My.Computer.FileSystem.OpenTextFileReader("C:\test.txt")
        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 Sub
 
End Class