Imports System
Imports System.Text.RegularExpressions
Public Class CheckStringValidFrmatXXX_XXX_XXXX_CSharp
Public Shared Sub Main(ByVal args As String())
Dim s As String = "771-290-1652"
If IsValidFormat(s) Then
Console.WriteLine("Valid")
Else
Console.WriteLine("Not Valid")
End If
s = "771-29-162"
If IsValidFormat(s) Then
Console.WriteLine("Valid")
Else
Console.WriteLine("Not Valid")
End If
s = "771-AB1-1620"
If IsValidFormat(s) Then
Console.WriteLine("Valid")
Else
Console.WriteLine("Not Valid")
End If
End Sub
Public Shared Function IsValidFormat(ByVal s As String) As Boolean
Dim pattern As String = "(\d{3}-)?\d{3}-\d{4}"
Return Regex.IsMatch(s, pattern)
End Function
End Class
' run:
'
' Valid
' Not Valid
' Not Valid
'
