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