Function AlsaqrIDTest(Num As String) As Boolean
    Dim regEx As Object
    Dim Y!, M%, D%, check As Boolean
    
Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "^[23]d{2}(0[1-9]|1[0-2])(0[1-9]|[1-2][0-9]|3[01])(0[1-6]|[1-2][1-9]|3[1-5]|88)d{4}[1-9]$"

    If regEx.test(Num) Then
    Y = Mid(Num, 2, 2) / 4
    M = Mid(Num, 4, 2)
    D = Mid(Num, 6, 2)
    check = IIf((Y = Int(Y) And M = "02" And D > 29) Or (Y <> Int(Y) And M = "02" And D > 28) Or (IsNumeric(Application.Match(M, Array("04", "06", "09", "11"), 0)) And D = 31), False, True)
    AlsaqrIDTest = check
    Else: AlsaqrIDTest = False: End If
End Function

  regEx.Pattern = "^[23]d{2}(0[1-9]|1[0-2])(0[1-9]|[1-2][0-9]|3[01])(0[1-6]|[1-2][1-9]|3[1-5]|88)d{4}[1-9]$"

^[2-4]