Ввести текст. Определить количество букв в тексте

Private Sub CommandButton1_Click()
Dim S As String, I As Long, c As Long
S = InputBox("Введите текст")
For I = 1 To Len(S)
  c = c - (LCase(Mid$(S, I, 1)) <> UCase(Mid$(S, I, 1)))
Next I
MsgBox "В строке " & S & " " & c & " букв."
End Sub

Private Sub CommandButton1_Click()
Dim S As String, I As Long, c As Long, asd&
c=0
S = InputBox("Введите текст")
For I = 1 To Len(S)
asd=Asc(Mid(S,I,1))
  if (asd>=65 and asd<=122) or (asd >=192 and asd<=255) Then c=c+1
Next I
MsgBox "В строке " & S & " " & c & " букв."
End Sub

S = InputBox("Ââåäèòå òåêñò", , "`_^]\[")

Private Sub CommandButton1_Click()
Dim S As String, I As Long, c As Long, asd&
c=0
S = InputBox("Введите текст")
For I = 1 To Len(S)
asd=Asc(Mid(S,I,1))
  if (asd >= 65 And asd <= 90) Or (asd >= 192 And asd <= 255) Or (asd >= 97 And asd <= 122) Then c=c+1
Next I
MsgBox "В строке " & S & " " & c & " букв."
End Sub

Or asd = 168 or asd = 184

Private Sub CommandButton1_Click()
Dim S As String, i As Long, c As Long
S = InputBox("Введите текст")
For i = 1 To Len(S)
  If Mid(S, i, 1) Like "[а-яА-Яa-zA-Z]" Then c = c + 1
Next i
MsgBox "В строке " & Chr(34) & txt & Chr(34) & " - " & c & " букв из " & Len(S)
End Sub

  If Mid(S, i, 1) Like "[ёЁа-яА-Яa-zA-Z]" Then c = c + 1