Option Explicit
 
Private Sub cmdAll_Click()
   Dim doc2 As MSHTML.IHTMLDocument2
   Dim el As MSHTML.IHTMLElement
 
   Set doc2 = br.Document
 
   Set el = doc2.body
 
   MsgBox el.innerText
 
   Set el = Nothing
   Set doc2 = Nothing
End Sub
 
Private Sub cmdGetSelection_Click()
 
   Dim doc2 As MSHTML.IHTMLDocument2
   Dim sel As MSHTML.IHTMLSelectionObject
   Dim ra As MSHTML.IHTMLTxtRange
 
   Set doc2 = br.Document
 
   Set sel = doc2.selection
   If sel Is Nothing Then
      Exit Sub
   End If
 
   'testen ob Text selektiert ist
   If LCase(sel.Type) <> "text" Then
      Exit Sub
   End If
 
 
   Set ra = sel.createRange()
   MsgBox ra.Text
 
   Set ra = Nothing
   Set sel = Nothing
   Set doc2 = Nothing
End Sub
 
Private Sub Form_Load()
   Dim theUrl$
 
   theUrl = "http://www.vbarchiv.net/forum/id5_i9664t9664.html"
   cmdGetSelection.Caption = "Selection"
   cmdAll.Caption = "Alles"
   br.Navigate2 theUrl$
 
End Sub