Anonymní profil Marek – Programujte.com

Zdravím, potřeboval bych pomoct s tímto zadáním: Zadejte několik čísel, ukončete nulou. Potom zadáte některé z předtím zadaných čísel. Program vypíše, kolikrát toto číslo předtím padlo. Použijte statické pole o 100 prvcích. nepoužívejte ReDim.

Postupoval jsem takto: 

Sub main()
    Dim cisla(100) As Integer
    Dim i As Integer
    Dim hledaneC As Integer
    Dim pocVys As Integer
    Dim x As Integer
    Dim b As Byte
    i = 0
    
    Do
        cisla(x) = InputBox("Zadavejte cisla, ukoncete 0")
        i = i + 1
    Loop While cisla(x) <> 0
    
    hledaneC = InputBox("Zadejte hledane cislo")
    
    For b = 0 To i
        If cisla(x) = hledaneC Then
            pocVys = pocVys + 1
        End If
    Next
        MsgBox "Pocet vyskytu cisla bylo " + Str(pocVys)
    
End Sub

Mám problém s tím, že se mi čísla, která zadávám ve smyčce Do Loop, jakoby nenačítají (neukládají) do pole a načítají se tam pouze nuly.

Jsem úplný začátečník, takže jsem si vědom, že tam bude asi spousta chyb. 

Předem díky za odpovědi.