Get the Microsoft Internet Control BeforeNavigate2 method working with VB.NET (the way you'd expect it to):

Private WithEvents doc As SHDocVw.DWebBrowserEvents_Event