SoloCodigo

HOLA¡
Soy nueva aqui y quiero ver si me pueden ayudar con un codigo:
se supone que tengo que elevar al cuadrado 10 numeros que se introducen en un textbox y mostrarlos en un listbox
utilizando arrays en visual basic 6.0

pero me sale un error sobre variables mal definidas o algo asi
este es mi codigo:

Option Explicit
Dim NUMERO(10) As String
DIM RESULTADO(10) AS INTEGER
DIM N AS INTEGER
Private Sub cmdAGREGAR
If Len(Trim(Text1.Text)) = 0 Then
MsgBox ("DEBE INTRODUCIR UN NUMERO")
Text1.SetFocus
ElSE
Dim I As Long
Dim TOTAL As Long
For I = 1 To UBound(NUMERO)
If Len(Trim(NUMERO(I))) > 0 Then
TOTAL= TOTAL + 1
NUMERO= Text1.Text
N=VAL(NUMERO(TOTAL+1))
RESULTADO(TOTAL+1)=N*N
End If
Next I
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub cmdMOSTRAR
Dim I As Integer   
For I = 1 To UBound(NUMERO)
If Len(Trim(NUMERO(I))) > 0 Then
List1.AddItem RESULTADO
End If
Next I
End Sub

 
de antemano muchas gracias por sus sugerencias