应该可以用代码判断,但楼主没有说清楚具体的要求(例如输入的东西是否只能是数字等具体要求。。),随便写一个:
Private Sub Command1_Click()
Dim a() As String, b() As String
a = Split(Trim(Text1.Text), "#")
b = Split(Trim(Text2.Text), "#")
If UBound(a) <> UBound(b) Then
MsgBox "格式不符"
Else
For i = 0 To UBound(a)
If Len(a(i)) <> Len(b(i)) Then
MsgBox "格式不符"
Exit Sub
End If
Next
MsgBox "符合格式"
End If
End Sub