несложная программа в vb

[retype]

помогите решить.

Дано четырехзначное число. Составить алгоритм подсчета количества и
печати тех разрядов, которые равны нулю.

Заранее благодарен.

[retype]

программа в vb 6.0

Dim massiv(4) As Integer
Dim i, j As Byte
Dim s As String
s = ""
m = 0
For i = 1 To 4
massiv(j) = InputBox("введи число")
s = s + Str(massiv(j)) + " "
Next i
Text1 = s
For i = 1 To Len(j)
If Mid(j, i, 1) = "0" Then
Text2 = i
End If
Next i

Вот написпл программу,но она почемуто не работает. когда я ввожу числа 7790 или 8008 или 8000 или 0270 он всегда пишет что только один 0. Помогите пожалуйста.

[EducatedFool]

подсчитать кол-во нулей просто:

Sub test()
    число = InputBox("Введите 4-значное число")
    КоличествоНулей = Len(число) - Len(Replace(число, "0", ""))
    MsgBox КоличествоНулей
End Sub

Но что означает фраза "печать тех разрядов, которые равны нулю", я не понял...