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 URL
End Sub