per cipisto

[Roby]

Ciao cipisto, ho modificato un listato per numero spia trovato in un forum e vorrei aggiungere un' ulteriore modifica per un inputbox per la scelta dei numeri senza cambiarli ogni volta dal listato.
Se è possibile chiedo ( ho provato ma non so come farlo e se è possibile) questo aiuto.
Questo è il listato (spero di averlo corretto bene finora)

=================================================================

Sub main()
Dim ruote(10)
Dim am(5)
Dim posta(5)
Dim posto(10)
posta(1)=1
posta(2)=1
casi=0

sp=CInt(InputBox("Qual' è il Numero Spia?",,10))
po=CInt(InputBox("Posizione Estratto Spia?",,3))
r=CInt(InputBox("Ruota di ricerca?",,10))
ruote(1)=CInt(InputBox("Su che ruota vuoi giocare?",,2))
co=CInt(InputBox("Per quante estrazioni deve durare il gioco?",,10))
'InputBox per scelta numeri

fin=EstrazioneFin
ini=EstrazioneFin-1000
For es=ini To fin
a=Estratto(es,r,po)

If a=sp Then

Scrivi "================================================================"
ColoreTesto 0 : Scrivi DataEstrazione(es),1
ColoreTesto 2 : Scrivi "Condizione: "&Left(NomeRuota(r),2)&" "&"spia"&" "&Cint(a)&" in "&(po)&"° posizione",1
ColoreTesto 0 : scrivi"--------------------------------------"

am(1)=7 'num in gioco puoi sostituirli
am(2)=15
am(3)=29
am(4)=72
am(5)=90

ImpostaGiocata 1,am,ruote,posta,co
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
ScriviResoconto
End Sub

================================================================

Ciao ancora, maxma