Visual Basic - no puedo hacer additem en mi listbox

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

Hola
No se si sera esto pero prueba. En el for de cmdlista_click en el next te falta el I, quedaria asi:

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

De todas formas te da algun error o q te muestra en la lista recuerda hacer un lstNumero.Clear antes de añadirlos porque si no te mantendra los de antes y pondra a continuacion los nuevos

Suerte