VB判断字符串包含某个字符的数量 统计函数

Public Function panduanbaohan(ByVal strInput As String, ByVal strChar As String) As Long   '判断包含个数  = panduanbaohan(Text1.Text, "/")

Dim s() As String

If Len(Trim(strInput)) = 0 Then

panduanbaohan = 0

Else

s = Split(strInput, strChar)

panduanbaohan = UBound(s)

End If

End Function