SendURLtoIE

Private Sub Command1_Click()
Dim MyIE As Object
Set MyIE = CreateObject("internetexplorer.application")
MyIE.Visible = True
MyIE.navigate (Text1.Text)
End Sub