HOLA!!!
Creo que comprendi lo que queres hacer.
Te dejo el codigo y me decis como te fue:
'ESTO SI QUERES QUE EXCLUSIVAMENTE ESTE EN TU PAGINA PRINCIPAL
Private Sub WebBrowser1_DownloadBegin()
If Not WebBrowser1.LocationURL = "http://web.com" Then
WebBrowser1.Navigate "http://web.com"
End If
End Sub
'ESTO SI QUERES QUE NAVEGUE POR TODA TU WEB
Private Sub WebBrowser1_DownloadBegin()
If Not Mid(WebBrowser1.LocationURL, 1, Len("http://web.com")) = "http://web.com" Then
WebBrowser1.Navigate "http://web.com"
End If
End Sub
GRACIAS POR LEER!!!