Запрашивать у пользователя числовые значения, до тех пор, пока не будет введено значение 0 - VB

Option Explicit
Dim A() As Integer, B() As Integer, C() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
 Do
  i = i + 1
  ReDim Preserve A(i) As Integer
  A(i) = InputBox("Введте любое число")
  If A(i) > 0 Then
    j = j + 1
    ReDim Preserve B(j) As Integer
    B(j) = A(i)
  ElseIf A(i) < 0 Then
    k = k + 1
    ReDim Preserve C(k) As Integer
    C(k) = A(i)
  End If
 Loop Until A(i) = 0
For i = 1 To i
  Print A(i)
Next i
   CurrentY = 0
For j = 1 To j
   CurrentX = 300
   Print B(j)
Next j
   CurrentY = 0
For k = 1 To k
   CurrentX = 600
   Print C(k);
Next k
End Sub