Private Sub doLine(ByVal line As String)
        Debug.WriteLine(line)
    End Sub
 
    Private Sub Test()
        Dim fp As String = "F:\Test\funny.csv"
 
        Dim line As String = String.Empty
        Dim sc As Integer
        For Each pl As String In IO.File.ReadAllLines(fp)
            line += pl
            If line.Length - line.Replace(";", String.Empty).Length = 3 Then
                doLine(line)
                sc = 0
                line = String.Empty
            Else
                line += vbCrLf
            End If
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist