InString count for specific character or string

[bebop]

I have a string I'm passing from a form; it's a list of names seperated by commas. To parse out those individual names into seperate individual strings I need to know how many commas are in the orginal string in order to know how many loops to iterate through in my For loop.

I hope that was understandable. Is there a (easier) way to count the number of times a character/string occurs within another string?

Thanks

 

[JohnYingling]

Try the Split function

Dim aryW
aryW = Split(strIn,",&quot
For I = 0 to UBound(aryW)
.....aryW(I)
Next

You can get a UBound = - 1 with an empty string, e.g.
aryW = Split("",",&quot

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript