aiuto per piccolamodifica

[giungla]

Sub Main()
Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",Florindi,0))
If ee = "" Then Exit Sub
'cl = CInt(InputBox("Quanti colpi ?",Florindi,18))
'If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",Florindi,1))
If r1 = "" Then Exit Sub
es = EstrazioneFin - ee
For nn = 1 To 10
g = 0
For i = 0 To 3000
If Posizione(es - i,r1,nn) > 0 Then g = g + 1:ex(g) = es - i
If g = 27 Then Exit For
Next
es2 = ex(27)
Erase nu : Erase nr
ru1(1) = r1:h = 0
de = DecinaNaturale(nn)
For j = 1 To 10
nu(j) = CInt(de & j)
If j = 10 Then nu(j) = CInt((de + 1) & "0")
Next
For i = 1 To 10
nm = nu(i):k = 0:sf(i) = 0
For z = 27 To 1 Step - 1
ok = 0
For y = 1 To 100
If SerieFreq((ex(z) + y),(ex(z) + y),nu,ru1,1) > 0 Then ok = 1:es1 = ex(z) + y
If ok = 1 Then Exit For
Next
If Posizione(es1,r1,nm) > 0 Then k = k + 1
Next
sf(i) = sf(i) + k
Next
w = 0
For x = 1 To 10
If sf(x)=>0 Then w=1 : amb(1)=nu(x)
Next
If w = 1 Then 'Cerca le 10 presenze

ColoreTesto 0
Scrivi :Scrivi
Scrivi" Dal " & DataEstrazione(es2) & "(" & es2 & ") al " & DataEstrazione(es) & " (" & es & ")" & Chr(10)
Scrivi "Spia : " &(nn) & " N° Presenze su Ruota di ---->" & NomeRuota(r1),1
Scrivi

For i = 1 To 10


Format2(nu(i)) & " "
Next
Scrivi
Scrivi "Num Freq" & Num & Freq

For i = 1 To 10
If(sf(i)) > 6 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(nu(i)) & " " & Format2(sf(i))
Next
Scrivi

End If
Next
Scrivi
ColoreTesto 0
Scrivi String(50,"=") & Chr(10)
Scrivi "°°°Enplein°°°",1


riprendo un listato, quello sopra, perchè volevo inserire due mofiche
la prima riguarda la possibilità di scegliere la posizione della spia
la seconda di far fare la ricerca per tutte le decine (oppure a scelta) indiferrentemente dalla decina della spia ,cosi comè fa solamente infatti la ricerca per la decina di appartenenza