Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s1 As String = "VBNET13Java89Python"
Console.WriteLine(Regex.IsMatch(s1, "^[a-zA-Z0-9]*$"))
Dim s2 As String = "!**!***!"
Console.WriteLine(Regex.IsMatch(s2, "^[a-zA-Z0-9]*$"))
Dim s3 As String = "VB 13 Java 89 Python"
Console.WriteLine(Regex.IsMatch(s3, "^[a-zA-Z0-9]*$"))
Dim s4 As String = "VBJavaPython"
Console.WriteLine(Regex.IsMatch(s4, "^[a-zA-Z0-9]*$"))
Dim s5 As String = "12345"
Console.WriteLine(Regex.IsMatch(s5, "^[a-zA-Z0-9]*$"))
End Sub
End Module
' run:
'
' True
' False
' False
' True
' True