Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim pattern As String = "^\d{3}-\d{3}-\d{4}$"
Dim phone_number As String = "333-555-1234"
If Regex.IsMatch(phone_number, pattern) Then
Console.WriteLine("The phone number is valid")
Else
Console.WriteLine("The phone number is invalid")
End If
End Sub
End Class
' run:
'
' The phone number is valid
'