Dim jDatei As String = Jahresvorgaben
Dim AlleZeilen() As String = Split(My.Computer.FileSystem.ReadAllText(jDatei), _
  vbCrLf)
For i As Integer = 0 To AlleZeilen.Length - 1
  Dim jZeile() As String = Split(AlleZeilen(i), ";")
  Me.Controls("lbl" & jZeile(0)).Text = jZeile(0)
  Me.Controls("txt" & jZeile(1)).Text = jZeile(1)
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de