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

Select Case X
Case "А" To "я", "Ё", "ё"
    ' кириллица
End Select

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

Sub Form_Activate()
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
    Print c & " - бусурманская"
  ElseIf c Like "[А-Яа-яЁё]" Then
    Print c & " - нашенская"
  Else
    Print c & " - ни то, ни сё"
  End If
Next i
End Sub

Function isKyr4(s$) As Boolean
    Dim i&
    i = AscW(s)
    Select Case i
    Case 1040& To 1103&, 1025&, 1105&
        isKyr4 = True
    End Select
End Function

'Медленнее!
Declare Sub GetMem2 Lib "msvbvm60" (Src As Any, Dst As Any)
 
Function isKyr5(s$) As Boolean
    Dim i%
    GetMem2 ByVal StrPtr(s), i
    If i > 1024 Then
      If i > 1039 Then
        If i < 1104 Then isKyr5 = True: Exit Function
        If i = 1105 Then isKyr5 = True: Exit Function
      ElseIf i = 1025 Then isKyr5 = True
      End If
    End If
End Function