Имеется 3 числа : a ,b ,c. найти количество нулей. как написать в бейсике?

Sub aaa()
    a = InputBox("Введите число А")
    b = InputBox("Введите число B")
    c = InputBox("Введите число C")
    s = a + b + c
    k = 0
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "0" Then k = k + 1
    Next i
    MsgBox "Общее количество нулей равно" + Str(k)
End Sub