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

Dim st As String, i As Integer, k2 As Integer, k1 As Integer, k As Integer, j As Integer, s As String
st = Trim(Text1.Text)
ReDim Buk(1 To Len(st) - 1) As String
 
    k = 0
    k1 = 0
    k2 = 0
If Mid$(st, Len(st), 1) = "." Then
    For i = 1 To Len(st) - 1
        Buk(i) = LCase(Mid$(st, i, 1))
        If Buk(i) Like "[А-Яа-яЁё]" Or Buk(i) = " " Then k = k + 1
        If Buk(i) Like "[0-9]" Then k1 = k1 + 1
        If Buk(i) Like "[A-Za-z]" Then k2 = k2 + 1
    Next i
    
    If k1 = Len(st) - 1 Then
        MsgBox ("Были введены только цифры")
    ElseIf k = Len(st) - 1 Then
        k = 1
        For i = 1 To Len(st) - 1
            For j = i + 1 To Len(st) - 1
                If Buk(i) = Buk(j) Then
                    Buk(j) = ""
                    k = k + 1
                End If
            Next j
            If Buk(i) <> "" Then
                If Buk(i) = " " Then
                    s = s & Chr(13) & Buk(i) & "Пробелов " & "=" & (100 * k / (Len(st) - 1)) & "%"
                Else
                    s = s & Chr(13) & Buk(i) & " = " & (100 * k / (Len(st) - 1)) & "%"
                End If
            End If
            k = 1
        Next i
        MsgBox s
    Else
        For i = 1 To Len(st) - 1
             If Buk(i) = " " Then k1 = k1 + 1
        Next i
        s = "Латиница = " & (100 * k2 / (Len(st) - 1)) & "%" & Chr(13) & "Кирилица = " & (100 * (k - k1) / (Len(st) - 1)) & "%" & Chr(13) & "Пробелов = " & (100 * k1 / (Len(st) - 1)) & "%" & Chr(13)
        MsgBox s
    End If
    
Else
    MsgBox ("Ввод строчки не завершен. В конце должна стоять точка")
End If