Private Sub Command1_Click()
   Dim sDateiname As String
   Dim sSplit() As String
   Dim iErgebnis As Integer
   Dim sLine As String
 
   sDateiname = "D:\1.txt"                                  'Pfad und Name der 
   ' Textdatei
 
   Open sDateiname For Input As #1
   While Not EOF(1)
      Line Input #1, sLine                                  'Zeile einlesen
      sSplit = Split(sLine, ",")                            'nach Komma splitten
      iErgebnis = UBound(sSplit) + 1                        '+1, da Array bei 0 
      ' Anfängt
      If iErgebnis <> 0 Then                                'Wenn Komma 
      ' vorhanden, dann beenden
         MsgBox iErgebnis & " Spalten werden benötigt"
         Exit Sub
      End If
   Wend
 
   Close #1
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.