www.youtube.com
http://www.youtube.com/watch?v=fOmpu4NF768
解説は http://ie.vba-ken3.jp/sample/001/2009-02-17.html です。
単純にテキストボックスを出たら、.Navigate で飛ばしました。
Private Sub txtURL_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.WebBrowser1.Navigate Me.txtURL.Text
End Sub