Dim numeros(10) As Integer
Dim x as Integer
Private Sub Command1_Click()
If Text1 = "" Then
    MsgBox "Debe ingresar datos, de lo contrario no podrá continuar"
End If
If x<10

numeros(x) = CInt(Text1.text)
MsgBox "Agrego valor"

x= x+1
else
MsgBox "No se pueden agregar mas valores"

End If


End Sub