Private Sub Command1_Click() Dim Web As Object Dim URL As String URL = "www.microsoft.com" Set Web = _ CreateObject("InternetExplorer.Application") Web.Visible = True Web.navigate URLEnd Sub