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), ";")
        lblJänner.Text = jZeile(0)
        txtJänner.Text = jZeile(1)
        Next