Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Function IsAlphanumeric(ByVal str As String) As Boolean
Dim alphanumericPattern As String = "^[a-zA-Z0-9]+$"
Return Regex.IsMatch(str, alphanumericPattern)
End Function
Public Shared Sub Main()
Dim str As String = "VuZ3q7J4wo35Pi"
If IsAlphanumeric(str) Then
Console.WriteLine("The string contains only letters and numbers.")
Else
Console.WriteLine("The string contains characters other than letters and numbers.")
End If
End Sub
End Class
' run:
'
' The string contains only letters and numbers.
'