Sub m_1()
Dim str1 As String
Dim k As Integer
Dim i As Integer
str1 = Val(InputBox("ââåäèòå ñëîâî"))
For i = 1 To Len(str1)
    If LCase(Mid(str1, i, 1)) Like "[à]" Then
       k = k + 1
    End If
Next i
MsgBox "k=" + Str(k)
End Sub

Sub m_1()
Dim str1 As String
Dim k1 As Integer
Dim k2 As Integer
Dim i As Integer
str1 = InputBox("введите слово")
For i = 1 To Len(str1)
    If LCase(Mid(str1, i, 1)) Like "[а]" Then
       k1 = k1 + 1
    End If
Next i
For i = 1 To Len(str1)
    If LCase(Mid(str1, i, 1)) Like "[у]" Then
       k2 = k2 + 1
    End If
Next i
MsgBox "Букв <а> в слове=" + Str(k1)
MsgBox "Букв <у> в слове=" + Str(k2)
End Sub