Sub IEZugriff()
     Dim wnd As New SHDocVw.ShellWindows
     Dim ie As SHDocVw.InternetExplorer
     Dim doc As Object
 
     For Each ie In wnd
          Set doc = ie.document
          If TypeName(doc) = "HTMLDocument" Then
 
          MsgBox doc.body.innerText
 
          End If
     Next
End Sub