Makro, das vorher ging, geht jetzt nicht mehr

Sub Machs()
Dim TMP As Worksheet
Dim Hl
Dim Log_datei
Dim Arr
Dim FSO
Dim L As Long
Set FSO = CreateObject("Scripting.filesystemobject")
Set Log_datei = FSO.CreateTextFile("C:\Users\Pascal\recherche_sellector\Sellector_Forum\test. _
txt", True)
Set TMP = Worksheets.Add
With TMP.QueryTables.Add(Connection:= _
"URL;https://www.google.de/search?as_q=Internet+Explorer+8+ver+vba+%C3%B6ffnen&hl=de&rls=ig&num= _
10&btnG=Google-Suche&as_epq=&as_oq=&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=m&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images", Destination:=Range("A1"))
.Name = "body"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Set Hl = TMP.Hyperlinks
ReDim Arr(Hl.Count)
For L = 1 To Hl.Count
Arr(L - 1) = Hl(L).Address
Next
With Log_datei
.Write Join(Arr, vbCrLf)
.Close
End With
Application.DisplayAlerts = False
TMP.Delete
Application.DisplayAlerts = True
End Sub