Selected HTML code in a axWebBrowser control

[Angel@dot-q]

Well I did it like this, maybe this'll be useful for someone so be happy

Dim objHtmlDocument As mshtml.HTMLDocument
        Dim objRange As mshtml.IHTMLTxtRange
        Try
            objHtmlDocument = CType(Me.wbrContent.Document, mshtml.HTMLDocument)
            objRange = objHtmlDocument.selection.createRange
            If objRange.htmlText.Trim = String.Empty Then
...
            Else
                MsgBox(objRange.htmlText.Trim)
            End If
        Catch ex As Exception
 
        Finally
            objRange = Nothing
            objHtmlDocument = Nothing
        End Try