prova , vale solo sulla sestina base .
Option Explicit
Sub Main()
Call Scrivi() : Call Scrivi(String(36," ") & "NUMERI RILEVATORI SUPERENALOTTO *",True,True,,01) : Call Scrivi()
Dim numero(90,03),num(01),nn(01)
Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1))
If N = "" Then...