I need to count number of spaces in a line. Can anybody help me in this regards.
Suomi

Dim intCount as Integer, strLine as String

strLine = "This is a test."

intCount = 0
For intCount = 1 to Len(strLine)
    If Mid(strLine, intCount, 1) = " " Then
        intCount = intCount + 1
    End If
Next intCount

If intCount = 1 Then
    MsgBox "There is " & intCount " space in the test string.", _
    vbInformation, "Space Count"
Else
    MsgBox "There are " & intCount " spaces in the test string.", _
    vbInformation, "Space Count"
End If

Oops... the For Loop should end with "Next intCount". My brain was on automatic pilot. I fixed the code.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Whilst I have no doubt that the code will work, isn't it simpler to use the Split method and just count the number of lines in the resulting array using Ubound?