VB 怎样统计Text中某个字符个数

统计某个字符的代码如下：

Private Sub Command1_Click()
Dim i As Integer, Ccount As Integer
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "你所需要统计的字符" Then Ccount = Ccount + 1
Next i
msgbox "共有" & Count & "个e"
End Sub

统计字符个数
text2=len(text1)-len(replace(text1,"*",""))
要统计个数可以用len函数，在文本框的change事件里面写代码。

假如你的文本框是text1,label是label1
Private Sub Text1_Change()
Dim i As Long
Dim s As Long
s = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "*" Then s = s + 1
Next i
Label1.Caption = s
End Sub