Private Sub Command1_Click()
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.Visible = True
    ie.Navigate "http://"
End Sub