Проверка существования файла - VB

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

Помогите дописать код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
If Shell("C:\33\notepad.exe") Then
MsgBox ("Программа запущена успешно"), vbInformation
Else
MsgBox ("Программа не обнаружено на месте"), vbExclamation
End If
End
End Sub

Как дописать код, который указывает что данной программы по указанному адресу нету? Если вдруг я ее перенес в другую папку.

Решение задачи: «Проверка существования файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
(ByVal pszPath As String) As Long
Private Sub Form_Load()
t = "C:\33\notepad.exe"
If PathFileExists(t) = 1 Then
    If Shell(t) then
        MsgBox ("Программа запущена успешно"), vbInformation
    else
        MsgBox ("Запуск прошел неудачно"), vbExclamation
    End If
Else
    MsgBox ("Программа не обнаружено на месте"), vbExclamation
End If
End Sub