Dim jDatei As String = "Pfad_zu_TextFile"
            Dim jZeile() As String
 
            ' ReadAllLines -> Musst die Zeile nicht mehr splitten.
            Dim AlleZeilen() As String = System.IO.File.ReadAllLines(jDatei) 
            For Each Zeile As String In AlleZeilen
                jZeile = Zeile.Split(";")
                ' Prüfe, ob die Anzahl der Felder in Array stimmt
                If jZeile.Length = 3 Then                    
                    ' Vergleiche in Großbuchstaben (ToUpper)
                    If jZeile(0).Trim.ToUpper = "JULI" Then  
                        lblJuli.text = jZeile(0).ToString
                        txtJuli.text = jZeile(1).ToString
                        ' Weitere Anweisungen ... für Juli
                        ' Abfrage für weitere Monate (ElseIf)
                    End If
                End If
            Next