Fehlermeldung bei Document Methode

Sub CP_export()
Dim tags As Object
Dim tagx As Object
Dim wb As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = CreateObject("InternetExplorer.Application")
wb.Navigate "Adresse der Website"
Do: Loop Until wb.Busy = False
Set tags = wb.Document.GetElementsByTagname("button")
For Each tagx In tags
If tagx.alt = "Export" Then
tagx.Click
End If
Next
wb.Quit
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "ok"
End Sub