В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа

Private Sub Command1_Click()
Dim a() As String
Dim symbol As String, StrA As String
Dim n, i, j, max1, maxI, k
n = Text1         'Количество элементов в массиве
symbol = Text2     'Наш символ
ReDim a(1 To n) As String
For i = 1 To n              'Заполняем массив строками
a(i) = InputBox("Введите строку под номером  " & i)
Next i
max = 0
maxI = 0
For i = 1 To n              'Цикл перебирает элементы массива
k = 0
StrA = a(i)
Dim char As String
For j = 1 To Len(a(i))            'Цикл перебирает символы в строке
    char = Mid(StrA, j, 1)
    If char = symbol Then
    k = k + 1   'Считаем количество этого символа
    End If
    Next j
If k > max Then max = k And maxI = i     'Если количество символов больше чем в предыдущей строке,запоминаем.max количество   и     
 
'MaxI-номер строки
 
Next i
MsgBox max & " " & maxI       'Выводим количество и номер строки
End Sub