主题：求教：如何统计一段文本中，指定字符串出现的次数

比如我有这样一段文本，“中华人民共和国，中华民族，” ，我要统计其中字符串“中华”出现的次数，该怎么做。好像只能统计单个字符出现次数，统计不了字符串，请老大帮忙看下，在线等，拜托拜托！！！

Dim str As String = "中华中华人民共和国,中华民族"
Dim s As String = "中华"
Dim i As Integer = str.IndexOf(s)
Dim count As Integer = 0
Do While i >= 0
    count += 1
    str = str.SubString(i+s.length)
    i = str.IndexOf(s)
Loop
msgbox(count)

谢谢，老大