VB Code:
  1. Public Sub OpenURL(iURL As String)

  2. On Error Resume Next

  3.  
  4.     Dim Temp As Object

  5.     

  6.     'Create instance

  7.     Set Temp = CreateObject("InternetExplorer.Application")

  8.     

  9.     'Open URL

  10.     Temp.Navigate2 iURL

  11.     Temp.Visible = True

  12. End Sub