Dim Url As String
  Url="www.google.com."
  webbrowser.Navigate Url
  text1.text=Url

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com.ar"
End Sub
 
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Me.Caption = URL
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.Caption = URL
End Sub