La macro VBA per estrarre la fonte del sito web in una cella restituisce un #VALUE! errore in excel

Sono nuovo nelle macro VBA e sto usando uno che estrae un'origine URL e quando cerco di utilizzarlo per riempire il contenuto di una cella in excel ottengo un valore #VALUE! errore in una cella. Può qualcuno aiutare?

Ecco il codice che sto usando:

Function GetSource(url As String) As String With CreateObject("MSXML2.XMLHTTP") .Open "GET", url .Send Do: DoEvents: Loop Until .Readystate = 4 GetSource = .responsetext .abort End With End Function 

Ho l'errore #VALUE quando omesso "http: //"; quando lo inserisco la tua function funziona bene per ciò che sembra essere pagine "ben formate". Per altri sembro fallire.

Per scopi di debug ho creato un riferimento a "Microsoft XML, v6.0" e ho modificato il codice

 Function GetSource(url As String) As String Dim O As MSXML2.XMLHTTP Set O = New MSXML2.XMLHTTP O.Open "GET", url O.send GetSource = O.responseText O.abort Set O = Nothing End Function