Imports System
Imports System.Text.RegularExpressions
Class RegexValidation
Public Shared Function IsValidString(ByVal s As String) As Boolean
Dim pattern As String = "^[A-Za-z0-9_-]*$"
Return Regex.IsMatch(s, pattern)
End Function
Public Shared Sub Main()
Dim s1 As String = "-abc_123-"
Console.WriteLine(If(IsValidString(s1), "yes", "no"))
Dim s2 As String = "-abc_123-(!)"
Console.WriteLine(If(IsValidString(s2), "yes", "no"))
End Sub
End Class
' run
'
' yes
' no
'