Contar carácter Visual Base 6

Estava procurando uma forma de contar a quantidade de um determinado caracter no Visual Base, e não achei uma função interna no VB6 que fazia isso. Então essa função faz isso muito fácil. Private Function ContaCaracter(wString As String, wCaracter As String) As Integer Dim I As Integer, wQtd As Integer For I = 1 To Len(wString) [...]