Подсчет буквы в предложении и определение часто попадающейся - VBA

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

Доброго времени суток, задача вроде бы простая, но что то не получается и еще ошибку выдает, я вроде бы понимаю что просит и одновременно нет Задача: Напишите программу подсчета количества некоторой буквы в данной строковой переменной. Найти наиболее часто встречающуюся букву. Мой код:

Private Sub CommandButton1_Click()
Dim str As String
Dim C As String
Function CountChar(C As String, S As String) As Byte
Dim i As Byte
Dim buf As Integer
buf = 0
For i = 1 To Len(S)
If S(i) = C Then Inc (buf)
CountChar = buf
End If
Next
str = 0
' введите строку
str = Val(TextBox1.Text)
'введите букву для подсчета
C = Val(TextBox2.Text)
Label1.Caption = CountChar(C, str)
End Sub

Ошибка: Сейчас закину Оформление: Сейчас закину Искал в интернете Ссылка: Разработать функцию программиста, вычисляющую, сколько раз встречается заданная буква в строке Код из ссылки (Взят за основу):

var str:string;
    c:char;
 
Function CountChar(C: Char; S: string): byte;
var
 i: byte;
 buf:integer;
begin
 buf:=0;
 For i:=1 to length(S) do
   if S[i]=C then inc(buf);
 countChar:=buf;
end;
 
Begin
 str:='';
 while str<>' ' do begin
  write('Введите строку (для выхода из программы введите пробел): ');
  readln(str);
  if str<>' ' then begin
   write('Введите букву для подсчёта вхождений в строку: ');
   readln(c);
   Writeln('В строке "',Str,'" символ "м" встречается ',CountChar(c,Str),' раз(а).');
  end;
 end;
End.

Вторая ссылка: https://znanija.com/task/809219 Код из ссылки:

Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
end.

Третья ссылка (Не понятно что куда вводится):http://www.sql.ru/forum/1129926/podschet-bukv-v-slove Код из ссылки

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

Решение задачи: «Подсчет буквы в предложении и определение часто попадающейся»

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

                            Sub xxx()
    Dim ff&, FileName$, Content$, j&, i&
    Dim r&(255)
    
    'Выбор файла (текстовый файл)
    FileName = Application.GetOpenFilename("Текстовые файлы(*.txt),*.txt* ,Любые файлы, *.*", 2, "Выбери файл")
    If FileName = "False" Then Exit Sub
    ff = FreeFile: Open FileName For Binary As #ff: Content = Space$(LOF(ff)): Get #ff, 1, Content: Close #ff
    
    'Подсчет вхождений
    For i = 1 To Len(Content)
        j = Asc(Mid$(Content, i, 1))
        r(j) = r(j) + 1
    Next
    
    'Вывод на лист
    Cells(1, 1).Value = "Символ": Cells(1, 2).Value = "Вхожд.": Cells(1, 3).Value = "Код"
    j = 2
 
    For i = 0 To 255
    
        If r(i) > 0 Then
            Select Case i
            Case 32: Cells(j, 1).Value = "[Пробел]"
            Case Is < 32: Cells(j, 1).Value = "[Сист.]"
            Case Else: Cells(j, 1).Value = Chr$(i)
            End Select
            Cells(j, 2).Value = r(i): Cells(j, 3).Value = i:  j = j + 1
            
        End If
    Next
 
End Sub
                        