Private Sub Command1_Click()
  Dim sh As Object

  Set sh = CreateObject("Shell.Application")

 sh.Open "http://1621759"
End Sub

Private Sub Variant2()


Dim IE As Object
'Dim doc As HTMLDocument
'Dim row As Object
'Dim cell As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "C:\заявки .htm"
While IE.readyState <>  4 
    DoEvents
Wend

 IE.document.all("p_bc_id").Value = "64"  'ставлю нужное значение
  IE.document.all("p_bc_id").Focus         'ставлю фокус для таба
  SendKeys "{Tab}"                            'собственно таб
  'SendKeys "{Tab}", True


''' IE.document.getElementsByName("p_action").Click
'IE.document.all("Закрыть заявку").Click                      'название на кнопке
  SendKeys "%{F4}", True            'Закрыть окно


 End Sub