Поиск русских символов в строке - VB

Формулировка задачи:

Подскажите, пожалуйста, как искать русские символы в строке? Т.е. скажем есть ТextBox в него вводиться рандомная строка, которая может содержать и кирилицу и латиницу и цифры. И как в этом безобразии определить является ли та или иная буква русской или бусурманской? Пробовать через ASCI кодировку?

Решение задачи: «Поиск русских символов в строке»

textual
                            Листинг программы 
                        

                            Sub qqq()
Dim s$, i As Long, c$
s = "sfghd3456аро"
For i = 1 To Len(s)
  c = Mid$(s, i, 1)
  If c Like "[A-Za-z]" Then
    MsgBox c & " - бусурманская"
  ElseIf c Like "[А-Яа-яЁё]" Then
    MsgBox c & " - нашенская"
  Else
    MsgBox c & " - ни то, ни сё"
  End If
Next i
End Sub
                        