Script - diversi dal Fuori 90

[Halmun]

chiedo gentilmente una mano x realizzare negli script Formule diverse dal Fuori90
es:
Fuori09, Fuori22, Fuori37, Fuori61, ecc. ecc.
nel garantirvi che non sono Fuori noto che spaziometria ha solo i Fuori 42,45,49,X
sapete se per caso il FuoriX rappresenta una dichiarazione di variabile che si può impostare a piacimento?

ad es: su questo piccolo script mi da l'errore di ° tipo non corrispondente ° riga 11

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0
For n=7301 To EstrazioneFin
If IndiceMensile=11 Then


numeri1(1)=Fuori22(Estratto(n,1,2)*13)


ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub

c'è qualcuno che può aiutarmi?

 

[Halmun]

GRAZIE RUBINO, proverò la tua soluzione, ma credo cmq. di esserci riuscito.
se non ho sbagliato i valori Ab e Ac fungono da Fuori-xx

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0


ruote(1)=1


ab=22
ac=67


For n=7301 To EstrazioneFin


If IndiceMensile=11 Then


numeri1(1)=Estratto(n,1,2)*13-(Int(Estratto(n,1,2)*13/ab)*ab)
numeri1(2)=Estratto(n,1,3)*49-(Int(Estratto(n,1,3)*49/ac)*ac)


ImpostaGiocata 1,numeri1,ruote,poste,9,1


Gioca n
End If
Next
ScriviResoconto
End Sub