ValidPIN
用于校验身份证号码是否正确，如果正确，返回True，否则返回False
语法：
ValidPIN(Value)
Value：身份证号码。
示例：
Dim Identify As String = "34052419800101001X" Output.Show(ValidPIN(Identify))