Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim phoneNumbers As String() = {"333-555-1234", "(333)-555-1234", "333 555 1234", "333.555.1234", "+91 (333) 555-1234"}
Dim pattern As String = "^(\+\d{1,2}\s)?\(?\d{3}\)?[\s.-]?\d{3}[\s.-]?\d{4}$"
For Each phoneNumber In phoneNumbers
If Regex.IsMatch(phoneNumber, pattern) Then
Console.WriteLine("Valid phone number format")
Else
Console.WriteLine("Invalid phone number format")
End If
Next
End Sub
End Class
' run:
'
' Valid phone number format
' Valid phone number format
' Valid phone number format
' Valid phone number format
' Valid phone number format
'