From a previous post...


Public Function GetCharCount(vString As String, CheckChar As String) as
Integer
Count=0
For n=1 to len(vstring)
If mid(vstring,n,1)=CheckChar then Count = Count + 1
Next
GetCharCount=Count
End Function


--
Regards,


Bill Lunney
www.billlunney.com

"Justin Ater" wrote in message
...
Can anyone recommend a easy method for programmatically determining the
number of times a character occurs within a single cell (e.g., the
character
"*" occurs 5 times in text "A*B*C*D*E*F"). Thanks,

Justin