新手请教！

Question

我这里提供一个思路
用Mid函数读取Text1.Text内容，5个数一读。对读出的内容进行判断。是否都是数字（还可以加入一个判断是否每个数的第一个数字是0）。然后用Mid函数读取下一位数，1位一读，对读出的内容判断是否是","。这就是大概的思路。这样基本上就能解决你的问题了。
因为我在网吧，具体代码不好编写。（我写程序总是要参考MSDN，呵呵~~）

Answer 1

先分割字符串把把分割后的字符串存在数组里..再有Len一个一个试..

Answer 2

'代码大概是这样，你调试一下看看。    Dim i   As Integer    '若为要求的格式,则Text1的长度必定为6的整数倍减1
    If ((Len(Text1.Text) + 1) / 6) <> Int((Len(Text1.Text) + 1) / 6) Then
        MsgBox "Error"
        Exit Sub
    End If
    
    '6的整数倍位置必定是[,]
    If Len(Text1.Text) > 6 Then
        For i = 1 To Int(Len(Text1.Text) / 6)
            If Mid(Text1.Text, 6 * i, 1) <> "," Then
                MsgBox "Error"
                Exit Sub
            End If
        Next i
    End If
    
    '以下判断5位数字
    For i = 1 To Int(Len(Text1.Text) / 6) + 1
        If Not IsNumeric(Mid(Text1.Text, 6 * (i - 1) + 1, 5)) Then
            MsgBox "Error"
            Exit Sub
        End If
    Next i
    
    MsgBox "Right!"