不能100%校验成功，比如将来有了154号段，那么154开头的号码将认为是错误的，请修改正则表达式就好。

'============================================
'函数名称： CheckPhoneNumber
'功能描述： 校验手机号码是否正确
'输入参数： PhoneNumber    字符串，必需的，手机号码
'返回参数： 手机号码正确返回True,否则返回False
'使用说明：
'引    用： 无
'作    者： 李志能
'创建日期： 2021-04-6
'============================================
Public Function CheckPhoneNumber(PhoneNumber As String) As Boolean
    Dim oregExp As Object
    
    Set oregExp = CreateObject("vbscript.regexp")
    With oregExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "^((13[0-9])|(14[1]|[4-9])|(15([0-3]|[5-9]))|(16[2]|[5-7])|(17[0-3]|[5-8])|(18[0-9])|(19[1|8|9]))\d{8}$"
    End With
    
    If oregExp.Test(PhoneNumber) Then
        CheckPhoneNumber = True
    Else
        CheckPhoneNumber = False
    End If
    
End Function