Ошибка sub or function not defined - VB

Формулировка задачи:

Здравствуйте, помогите пожалуйста разобраться в чем тут ошибка?

Private Sub Кнопка11_Click()
Call ShellExecute(0, "open", "H:\БДиСУБД\КУРСОВАЯ\help\Help.chm", "", "", SW_SHOWNORMAL)
End Sub

Решение задачи: «Ошибка sub or function not defined»

textual
                            Листинг программы 
                        

                            Option Explicit
 
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
 
Const SW_SHOWNORMAL = 1
                        