'*****************************************************
Public Function HTMLsource()
 
On Error GoTo ErrHandling
Dim quellcode As String
Dim objShellWins As SHDocVw.ShellWindows
Dim objIE As SHDocVw.InternetExplorer
Const URL_TO_SEARCH = "SeitenTitel"
 
 
Set objShellWins = New SHDocVw.ShellWindows
For Each objIE In objShellWins
If (InStr(1, _
objIE.LocationURL, _
URL_TO_SEARCH, vbTextCompare) <> 0) Then
quellcode = objIE.Document.frames(6).Document.body.innerHTML
End If
Next
 
HTMLsource = quellcode
 
 
ErrHandling:
Resume Next
 
End Function
'*****************************************************