Visual Basic - asas

Quiero saber porque no puedo hacer el additem en un listbox
este es el caso, porfavor responder lo mas pronto posible que se
lo agradecere

Dim N(10), S, I, CUANTOS, P As Long
Option Explicit

Private Sub CMDCONTINUAR_Click()
I = I + 1
N(I) = Val(TXTNUMERO)
S = S + N(I)
P = P * N(I)
TXTSUMA = S
TXTPRODUCTO = P
TXTNUMERO = ""
TXTNUMERO.SetFocus
CUANTOS = I

End Sub

Private Sub CMDLISTA_Click()
For I = 1 To CUANTOS
LSTNUMERO.AddItem N(I)
Next

End Sub

Private Sub Form_Load()
I = 0: S = 0: P = 1
End Sub

Podrias por favor ser un poco mas claro en que es lo que quieres hacer con ese codigo