Mit .queryselector ifram Button clicken

Sub Test-Formular ()
Dim c As Range
Dim IEApp As Object
Dim Bezeichnung As String
Dim Ort1 As String
Ort1 = Range("A1")
IEApp.navigate Ort1
Do: Loop Until IEApp.Busy = False
' .... usw. laden bis fertig.... usw. ... Abschnitt ausgeschnitten.............................. _
For Each c In Range("ID_Feld")
Bezeichnung = c
.getElementById(Bezeichnung).Value = c.Offset(, -1)
Next
'Ab hier: der Teil, um den es geht.....
Dim domIFrame As MSHTML.HTMLDocument
Set domIFrame = .frames("promotedListing_iframe").document
With domIFrame
.querySelector("input[id='optinCheckbox']").Click
End With
end with
'.... Abschluss  ausgeschnitten
End sub