Regex code not working

[happyme]

Hi,

I have written a short piece of code to validate a UK NI number.

The format is 2 upper case letters, followed by 6 digits followed by A,B, C or D

eg AB123456A is OK

This code does not work, it never matches even when the string NI_Num is OK:


Dim NIr As Regex
Dim match As Boolean

NIr = New Regex("^[A-Z]^2[0-9]^6[A,B,C,D]")

match = NIr.IsMatch(NI_Num(count))


match is always false. Any suggestions where I'm going wrong?

Tia

H