'Auteur: Gavin Bollard - VBHelper
Function CountFields(LineDataIN As String, _
Delimiter As String) As Integer
Dim NewPos As Integer
Dim MaxPos As Integer
Dim FieldCounter As Integer
If LineDataIN = '' Or Delimiter = '' Then
CountFields = 0
Exit Function
End If
MaxPos = Len(LineDataIN)
NewPos = 1
FieldCounter = 1
While (NewPos < MaxPos) And (NewPos <> 0)
NewPos = InStr(NewPos, LineDataIN, _
Delimiter, vbTextCompare)
If NewPos <> 0 Then
FieldCounter = FieldCounter + 1
NewPos = NewPos + 1
End If
Wend
CountFields = FieldCounter
End Function