[XRaziel]

Sub MiaProcedura(Valore As Integer)
'Ridimensiono il vettore
ReDim Numeri(1 To Valore)
Dim i As Integer
'Questo for per inserire dei valori nella variabile Numeri(i)
For i = 1 To Valore
'in questo caso con dei numeri da 1 a 10 (il valore impostato al comand button)
Numeri(i) = i
Next i
'stampo il vettore
For i = 1 To Valore
i = Numeri(i)
List1.AddItem Numeri(i)
Next i
End Sub

Sub Command1_Click()
'Chiamata alla procedura
MiaProcedura (10)
End Sub