prova questo
Option Explicit Sub Main() Call Scrivi() Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01) Call Scrivi() Dim numero(90,03),num(01),ruota(1),nn(01) Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1)) If N = "" Then Exit Sub Dim R : R =...