Public Shared Function IsAlphaNumeric(ByVal strToCheck As String) As Boolean
    Dim pattern As Regex = New Regex("[^a-zA-Z0-9]")

    Return Not pattern.IsMatch(strToCheck)
End Function