在我们日常开发中，经常会遇到一些需要判断包含数量的问题，比如 A字符串 里面有几个 符号B

这个时候我们直接调用封装的函数模块一行代码搞定：

判断包含个数模块代码： 

        Public Function panduanbaohan(ByVal strInput As String, ByVal strChar As String) As Long   '

        Dim s() As String

        If Len(Trim(strInput)) = 0 Then

        panduanbaohan = 0

        Else

        s = Split(strInput, strChar)

        panduanbaohan = UBound(s)

        End If

        End Function

窗体调用代码：text2.text  = panduanbaohan(Text1.Text, "你好")