'Dateiinhalt lesen
Dim lines() As String = IO.File.ReadAllLines("....")
Dim geforderteFeldZahl As Integer = 5
 
'Und dann in einer Schleife die Zeilen checken
For i As Integer = 0 To lines.Length - 1
   If lines(i).trim = String.Empty OrElse _
      lines(i).Split(";"c).Length <> geforderteFeldZahl Then
                '.........
   End If
Next i