How to create a script to execute an application in the "Visual C++ 6"

Hi,

My objective is to execute an application that is
in the directory of the open project. For in such a
way i created this script:

language="VBScript"

function fnShellExecuteVB()

dim objShell
set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "notepad.exe", "", "", "open", 1
set objShell = nothing
end function

Sub test()
fnShellExecuteVB
End Sub

In this script I am trying to execute notepad.exe as test
and am receiving the following message from error:
"Permission Denied"

please,

somebody knows what to make to execute an application in
a macro in the "Visual c++ 6"? And how to obtain the directory
of an open project?

much thankful,

helin