Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз - VB

Sub qqq()
текст = "От сильных защищать бессильных"
буква = "с"
слово = " "
a = Split(текст)
For i = 0 To UBound(a)
  If UBound(Split(a(i), буква)) > UBound(Split(слово, буква)) Then слово = a(i)
Next i
MsgBox слово
End Sub