Well I finally got it to work. with the code below
Dim myHTML As String = wbNav.Document.Body.InnerHtml
Debug.Print(myHTML)
Just thought i would post a update i know people come here via google, searching for a answer to this question so :)
All i did was change wbNav.DocumentText to wbNav.Document.Body.InnerHtml
And all was good.