如何统计text里的“，”的个数？

Private Sub Command1_Click()
Dim i As Integer
Dim strSum As Integer
Dim strTest As String
For i = 1 To Len(Text1.Text)
strTest = Mid(Text1.Text, i, 1)
If strTest = "," Then
strSum = strSum + 1
End If
Next
Print strSum
End Sub

可通过‘，’的ASCII码判断

支持版主

Private Sub Command2_Click()
a = Split(Text2.Text, ",")
Print UBound(a)
End Sub

是，我发现了，谢谢.

Private Sub Command2_Click()
a = Replace(Text2.Text, ",", "")
MsgBox ", 数量: " & CStr(Len(Text2.Text) - Len(a))
End Sub

[此贴子已经被作者于2006-5-13 10:23:49编辑过]

楼上的,好象应该写:
MsgBox ", 数量: " & CStr(Len(Text2.Text) - Len(a))