Imports System
Imports System.Text.RegularExpressions
Public Class Test
Shared Function IsValid(ByRef s As String) As Boolean
Return Regex.IsMatch(s, "^[a-zA-Z0-9]*$")
End Function
Public Shared Sub Main()
Console.WriteLine(IsValid("vbnet123"))
Console.WriteLine(IsValid("vb.net123"))
Console.WriteLine(IsValid("vbnet"))
Console.WriteLine(IsValid("123"))
End Sub
End Class
' run
'
' True
' False
' True
' True
'