AIUTO X LISTATO

[Roby]

Ciao a tutti , chiedo una cortesia a chi e' in grado di elaborare listati... io ho iniziato cosi' ma non so' come completarlo :

Sub main()
Dim ruote(10)
Dim posta(5), poste(5), posti(5)
Dim am(5), qu(5)
posta(1)=1
poste(2)=0.8
poste(3)=0.2
rs=InputBox("Quante estrazioni vuoi controllare?",,7000)
colpi=CInt(InputBox("Per quanti colpi giocare? -> ",,13))
n1=CInt(InputBox("Primo AMBO 1° num ->",,24 ))
n2=CInt(InputBox("Primo AMBO 2° num ->",,16))
n3=CInt(InputBox("Secondo AMBO 1° num ->",,49))
n4=CInt(InputBox("Secondo AMBO 2° num ->",,57))
n5=CInt(InputBox("Terzo AMBO 1° num ->",,13))
n6=CInt(InputBox("Terzo AMBO 2° num ->",,21))
fin=EstrazioneFin

e poi dopo aver cercato questi 3 ambi mi deve permettere di inserire un solo ambo da giocare anche come ambata..tutto qui...ringrazio anticipatamente chi avra' il buon cuore di rispondermi[:I]