Problemi di aggiornamento da lotto-italia-it archivi excel

[TONY@]

Qualcuno sa se e cambiato qualcosa sul link www.lotto-italia.it perche mi da errore quando vado ad aggiornare i miei archivi excel


Sub InitVariabili()
NomiRuote
structIni.sUrlEstrazioni = "https://www.lotto-italia.it/STORICO_ESTRAZIONI_LOTTO/storico.zip" ' sheetImpostazioni.Range("B2")
structIni.sPathDiLavoro = AddSlashIfNot(ThisWorkbook.Path)
End Sub

 

[TONY@]

Questa e l'immagine che da di errore non so dove andare a modificare e dov'è il problema,non so fare gli script se qualcuno gentilmente può aiutarmi.
Archivio forse simile al programma di spaziometria grazie.

Uso excel office 2002 ma non ho mai avuto problemi di aggiornamento

 

[TONY@]

Sub InitVariabili()
NomiRuote
structIni.sUrlEstrazioni = "https://www.lotto-italia.it/STORICO_ESTRAZIONI_LOTTO/storico.zip" ' sheetImpostazioni.Range("B2")
structIni.sPathDiLavoro = AddSlashIfNot(ThisWorkbook.Path)
End Sub


e stato cambiato il link in

www.brightstarlottery.it


Sub InitVariabili()
NomiRuote
structIni.sUrlEstrazioni = "https://www.brightstarlottery.it/STORICO_ESTRAZIONI_LOTTO/storico.zip" ' sheetImpostazioni.Range("B2")
structIni.sPathDiLavoro = AddSlashIfNot(ThisWorkbook.Path)
End Sub


Se può servire a qualcuno oro faccio tutte le verifiche ma e li il problema credo ora lo cambio nella macro