Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim doc As mshtml.HTMLDocument
        doc = CType(wbr.Document.DomDocument, mshtml.HTMLDocument)
 
        Dim sel As mshtml.IHTMLSelectionObject
        sel = doc.selection
 
        If sel.type.ToLower = "text" Then
            Dim range As mshtml.IHTMLTxtRange
            range = CType(sel.createRange, mshtml.IHTMLTxtRange)
            txtHtml.Text = range.text
        End If
    End Sub