' Validate a US ZIP code' Example:' MessageBox.Show(IsValidUsZip("12345")) ' => True' MessageBox.Show(IsValidUsZip("12345-1234")) ' => True' MessageBox.Show(IsValidUsZip("12345-12345")) ' => FalseFunction IsValidUsZip(ByVal zip As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(zip, _ "^(d{5}-d{4})|(d{5})$")End Function