Visual Basic - PROBLEMAS AL CARGAR LA INFORMACION AL ARRAY

Dim arreglo(10) As Double
Dim Numero(10) As Double
Private Sub Command1_Click()
If Len(Trim(no.Text)) = "" Then
MsgBox ("debe introducir un numero")
Text1.SetFocus
Else
Dim i As Long
Dim nt As Double
For i = 1 To UBound(Numero)
If Len(Trim(Numero(i))) > "" Then
nt = nt + 1
arreglo(nt + 1) = no.Text
Numero(nt + 1) = no.Text
no.Text = ""
no.SetFocus
End If
Next i
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To UBound(Numero)
If Len(Trim(Numero)) > 0 Then
List1.AddItem Numero(i) & ""
List2.AddItem arreglo(i) & "" / 3
End If
Next i
End Sub



ese es el codigo fuente donde no.text es la caja de texto que recibira los numeros, el problema esta en:
arreglo(nt + 1) = no.Text
da un error que es "Type mismatch"

la verdad no entiendo el por que ...si pueden decirme el error que tengo se los agradeceria..
gracias por la ayuda.

Intentas cargar una variable TEXTO en un array numerico. Debes hacerlo asi:

arreglo(nt + 1) = VAL(no.Text )
Numero(nt + 1) = VAL(no.Text )

Suerte