vb 字符串 怎么写代码让AA=text1.text的第3个逗号后的内容

'定义时变量
Dim tmpStr As String
Dim T As Long
Dim T1 As Long
'把TEXT的值取出
tmpStr = Text1.Text
'置计数器初值
T = 1
T1 = 0
'循环找出第三个逗号
Do
T1 = InStr(T1 + 1, tmpStr, ",")
If T1 > 1 Then
If T = 3 Then
'找到第三个“，”号，取出后面的值
tmpStr = Mid(tmpStr, T1 + 1)
Exit Do
End If
T = T + 1
Else
'如果没有豆号了就结束
MsgBox "逗号不足！"
Exit Do
End If
Loop

以上代码在VB5+XP环境下调试通过！

在窗体上，添加一个命令按钮和一个文本框。
Private Sub Command1_Click()
Dim POS As Long '定义变量，逗号第一次出现的位置
For i = 0 To 2 '循环三次
POS = InStr(Text1, ",") '求出第一个逗号的位置
If POS > 0 Then
Text1 = Mid(Text1, POS + 1) '将第一个逗号及其前面的字符去掉，保留逗号后面的字符串

Else
'如果没有三个逗号，则提示
MsgBox "字符串有误。"