VB.Net Tutorial/Regular Expressions/Post Code

Validate for Canada postal code format

Imports System.Text.RegularExpressions
Public Class Tester
    Public Shared Sub Main
        Dim sPostalCode As String = "A1A 1A1"
        Dim sPattern As String
        Dim objRegEx As Regex
        sPattern = "[ABCEGHJKLMNPRSTVXY]\d[A-Z]\d[A-Z]\d"    
        
        Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))
        
        
    End Sub
End Class

False

Validate for US postal code format

Imports System.Text.RegularExpressions
Public Class Tester
    Public Shared Sub Main
        Dim sPostalCode As String = "12345-1111"
        Dim sPattern As String
        Dim objRegEx As Regex
        sPattern = "\d\d\d\d\d-\d\d\d\d"
        
        Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))
    End Sub
End Class

True