String parsing 1

[bulldawg1515]

I'm hoping this is something simple that I'm just overlooking but I can't figure it out. I'm trying to parse a string of text to determine how many leading spaces there are. For example, I have string " abc" and I want to be able to determine that there are three spaces at the start of this string. I have tried using the split function but can't figure out what delimiter to use to separate the string by each individual character, including the spaces. Also, in previewing my post, I noticed that it is only going to display one space in front of the "abc" example instead of three. So you will just have to pretend there are three blank spaces in front of "abc". Any help would be greatly appreciated. Thanks!

 

[mintjulep]

Public Function Leading(Txt As String)
Count = 1
Do Until Mid(Txt, Count, 1) <> " "
Count = Count + 1
Loop
Leading = Count - 1
End Function

 

[TonyJollans]

ABC = "   abc  "
MsgBox Len(ABC) - Len(LTrim(ABC))

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association

 

[mintjulep]

Argh!

I knew there was a kill leading spaces function, but I couldn't find it.

 

[IknowMe]

Remove leading spaces.
msgbox lTrim(" ABC")

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.