[求助]检验大陆身份证的自定义函数问题？

以下检验大陆身份证的自定义函数为何不能检测诸如“52242819791011102x”的身份证件号？

问题何在？

Function IDCheck(E As String) As Boolean
    IDCheck = True
    arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",")
    wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")
    Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",")
    If Len(E) < 15 Or Len(E) = 16 Or Len(E) = 17 Or Len(E) > 18 Then
        'IDCheck= "身份证号共有 15 码或18位"
        IDCheck = False
        Exit Function
    End If
    Dim Ai
    If Len(E) = 18 Then
        Ai = Mid(E, 1, 17)
    ElseIf Len(E) = 15 Then
        Ai = E
        Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9)
    End If
    If Not IsNumeric(Ai) Then
        'IDCheck= "身份证除最后一位外，必须为数字！"
        IDCheck = False
        Exit Function
    End If
    Dim strYear, strMonth, strDay
    strYear = CInt(Mid(Ai, 7, 4))
    strMonth = CInt(Mid(Ai, 11, 2))
    strDay = CInt(Mid(Ai, 13, 2))
    BirthDay = Trim(strYear) + "-" + Trim(strMonth) + "-" + Trim(strDay)
    If IsDate(BirthDay) Then
        If DateDiff("yyyy", Now, BirthDay) < -140 Or CDate(BirthDay) > Date Then
            'IDCheck= "身份证输入错误！"
            IDCheck = False
            Exit Function
        End If
        If strMonth > 12 Or strDay > 31 Then
            IDCheck = False
            'IDCheck= "身份证输入错误！"
            Exit Function
        End If
    Else
        'IDCheck= "身份证输入错误！"
        IDCheck = False
        Exit Function
    End If
    Dim i, TotalmulAiWi
    For i = 0 To 16
        TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * wi(i)
    Next
    Dim modValue
    modValue = TotalmulAiWi Mod 11
    Dim strVerifyCode
    strVerifyCode = arrVerifyCode(modValue)
    Ai = Ai & strVerifyCode
    IDCheck = Ai
    If Len(E) = 18 And E <> Ai Then
        'IDCheck= "身份证号码输入错误！"
        IDCheck = False
        Exit Function
    End If
End Function

厉害啊，斑竹！就这句有问题。