Regex code for VB.NET

Dim r As New System.Text.RegularExpressions.Regex("[0-9]{2}[a-d]")
Dim s As String = "12a"
Dim b As Boolean = r.IsMatch(s)
Label1.Text = b.ToString