主题：电话号码录入校验

复杂一点可以这样

Dim str As String = e.Sender.text
Dim reg As new System.Text.RegularExpressions.Regex("((\d{11})|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1}))$)")
If reg.Ismatch(str) = False Then
    msgbox("号码有误")
    e.cancel = True
End If

 上面的关键代码请老帅解释一下啊，看着不太明白