ַַָĸVBVBAVB.net

Sub Test()
    MsgBox StrNumber("zyg365zyG", "G") '1ĸִСд
End Sub

Function StrNumber(StrInfo, StrTemp) 'ַַָĸ
    'StrInfo  ַ
    'StrTemp  ַ
    If StrInfo <> "" And StrTemp <> "" And Len(StrInfo) > Len(StrTemp) Then
        StrNumber = (Len(StrInfo) - Len(Replace(StrInfo, StrTemp, ""))) / Len(StrTemp)
    End If
End Function
