Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы - VB

Private Sub Command1_Click()
Dim i&, j&
'ÑîçäГ*Г*ГЁГҐ ГЁ âûâîä Г¬Г*Г±Г±ГЁГўГ*
ReDim a(0 To 9) As Long
Print "ГЊГ*Г±Г±ГЁГў äî:"
For i = 0 To 9
 a(i) = InputBox("Ââåäèòå Г·ГЁГ±Г«Г*")
 Print a(i);
Next
'ГіГ¤Г*ëåГ*ГЁГҐ Г*óëåâûõ
For i = 0 To 9
    If a(i) <> 0 Then a(j) = a(i): j = j + 1
Next
ReDim Preserve a(j - 1)
'âûâîä Г¬Г*Г±Г±ГЁГўГ*
Print vbLf; "ГЊГ*Г±Г±ГЁГў ïîñëå:"
For i = 0 To j - 1
    Print a(i);
Next
Print
End Sub