VBA

Защо не заработва

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)
Call ShellExecute(hwnd, "Open", filePath, 0&, 0&, 1)
End Sub



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

С Iexplorer 6.0 работеше нормално,но с Iexplorer 7.0 не може да стартира страниците на НОИ. Моля помогнете.
Благодаря предварително.

Аз тествах с Mozilla Firefox - заработи.