Определить, сколько раз в предложении встречается данный символ

Function howMany(Txt as string, sym as string) As long
    p&=1
    Do 
        p&=Instr(p&,Txt,sym)
        if p&=0 then exit Do
        HowMany=HowMany+1
   Loop
End Function

Function howMany(Txt as string, sym as string) As long
     for i&=1 to len(Txt)
         if mid$(Txt,i&,1)=sym then howMany=howMany+1
     next i&
End Function

Function howMany(Txt As String, sym As String) As Long
        howMany = UBound(Split(Txt, sym))
End Function

howMany = Len(txt)-Len(Replace$(txt, sym, ""))

howMany = (Len(txt)-Len(Replace$(txt, sym, "")))/Len(sym)

Function howMany(Txt as string, sym as string) As long
    p&=1
    Do 
        p&=Instr(p&,Txt,sym)
        if p&=0 then exit Do
        HowMany=HowMany+1
        p&=p&+1
   Loop
End Function

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Function hM0(Txt As String, sym As String) As Long
    p& = 1
    Do
        p& = InStr(p&, Txt, sym)
        If p& = 0 Then Exit Do
        p& = p& + 1
        hM0 = hM0 + 1
   Loop
End Function
 
Function hM1(Txt As String, sym As String) As Long
     For i& = 1 To Len(Txt)
         If Mid$(Txt, i&, 1) = sym Then hM1 = hM1 + 1
     Next i&
End Function
 
Function hM2(Txt As String, sym As String) As Long
        hM2 = UBound(Split(Txt, sym))
End Function
 
Function hM3(Txt As String, sym As String) As Long
         hM3 = Len(Txt) - Len(Replace$(Txt, sym, ""))
End Function
 
Function hM4(Txt As String, sym As String) As Long
         hM4 = (Len(Txt) - Len(Replace$(Txt, sym, ""))) / Len(sym)
End Function
 
Sub Test()
 
    BigBuf$ = ""
    
    For j% = 1 To 255
        BigBuf$ = BigBuf$ + Chr$(j%)
    Next j%
    
    For i% = 1 To 5
        BigBuf$ = BigBuf$ + BigBuf$
    Next i%
    
    
    Stt& = GetTickCount
    For i% = 1 To 10000
        k& = hM0(BigBuf$, "*")
    Next i%
    Stp& = GetTickCount
    Debug.Print "INSTR: "; Stp& - Stt&
    
    ' Исключен из теста за очевидной медленностью...
    
    'Stt& = GetTickCount
    'For i% = 1 To 10000
    '    k& = hM1(BigBuf$, "*")
    'Next i%
    'Stp& = GetTickCount
    'Debug.Print "FOR: "; Stp& - Stt&
    
    
    Stt& = GetTickCount
    For i% = 1 To 10000
        k& = hM2(BigBuf$, "*")
    Next i%
    Stp& = GetTickCount
    Debug.Print "SPLIT: "; Stp& - Stt&
    
    Stt& = GetTickCount
    For i% = 1 To 10000
        k& = hM3(BigBuf$, "*")
    Next i%
    Stp& = GetTickCount
    Debug.Print "Replace$: "; Stp& - Stt&
    
    
    Stt& = GetTickCount
    For i% = 1 To 10000
        k& = hM4(BigBuf$, "*")
    Next i%
    Stp& = GetTickCount
    Debug.Print "Replace$ / Len: "; Stp& - Stt&
 
End Sub

Function hM0(Txt As String, sym As String) As Long
    LenSym& = Len(sym)
    p& = InStr(1, Txt, sym)
    Do While p
        hM0 = hM0 + 1
        p = InStr(p + LenSym, Txt, sym)
    Loop
End Function