VB中统计字符串中某字符的个数

我有一行文字在 text1.text中 内容为:我是谁我就是不告诉你我是谁

我想在text2.text中输出该文本中"我"的个数,

代码如何写?

---

text2=len(text1)-len(replace(text1,"我",""))

---