ПРЕИНСАЛИРАХ

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Sub TestFile(filePath As String)
'open any file with the associated application
Call ShellExecute(hwnd, "Open", filePath, 0&, 0&, 1)
End Sub

Private Sub CommandButton1_Click()
TestFile("[линк]")
TestFile ("[линк]")
End Sub

По този начин тествах подготвена дискета за НОИ.Всичко бе нормално.Наложи се да преинсталирам WinDos-a и ОФИСА .Всичко минава без да дава грешка но не отваря сайта на НОИ.Какво съм пропуснал да инсталирам или бъркам някаде.
Помогнете.

Ами пич всичко си е ОК

TestFile ("[линк]")

Разбрах от какво се получава.Инсталирах F-secure ,ако предварително отворя сайта на НОИ той ми иска да разреша достъп до интернет и като изпълня кода
всичко минава нормално.Но когато изпълня кода без да съм отворил сайта на НОИ директно от EXCEL F-Secure не ме пита за достъп до интернет ,а директно го забранява.Как да разреша достъп до интернет на EXIEL - ски програми .
Благодаря.