Подсчет количества вхождений символа в строке

Ищем лучший способ сделать это в VB6. Обычно я бы использовал этот подход ...

   ' count spaces
    For i = 1 To Len(text)
        If Mid$(text, i, 1) = " " Then count = count + 1 
    Next