Function IsAlpha(ByVal symbol As String) As Boolean
    Dim Expr1, Expr2, Expr3, Expr4, Expr5, Expr6 As Boolean

    Expr1 = (Asc(symbol) >= Asc("А") And Asc(symbol) <= Asc("Я"))
    Expr2 = (Asc(symbol) >= Asc("а") And Asc(symbol) <= Asc("я"))
    Expr3 = (symbol = "?") Or (symbol = "?")
    Expr4 = (Asc(symbol) >= Asc(",") And Asc(symbol) <= Asc("/"))
    Expr5 = (symbol = "\")
    Expr6 = Expr1 Or Expr2 Or Expr3 Or Expr4 Or Expr5

    If Expr6 Then
        IsAlpha = True
    Else
        IsAlpha = False
    End If
End Function

Function IsAlphaNumeric(ByVal strTest As String) As Boolean
    Dim res As Boolean
    Dim symbol As String
    Dim i As Integer

    res = IsAlpha(Mid(strTest,  1 ,  1 ))
    For i =  2  To Len(strTest)
        symbol = Mid(strTest, i,  1 )
        res = res And (IsAlpha(symbol) Or IsNumeric(symbol))
    Next
    IsAlphaNumeric = res
End Function