Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Ciao e buon 25 Aprile..... casalingo
Prova cosi' dovrebbe andare
Sub Main()
Dim nua(4005,14),nn(2)
ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","01/01/2017")
ms = CInt(InputBox("In quale mese? ",,5))
If ms = "" Then Exit Sub
q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ...