Sub go2URL ()
   Dim varURL as Variant

   varURL = "http://www.microsoft.com"
   Slide1.WebBrowser1.Navigate varURL
End Sub