Shell выполнить Return 2 и не открыть файл

Question

У меня есть процедура, в которой я пытаюсь открыть некоторые файлы с любым расширением txt, pdf, doc, xls, ..., которые я всегда работал сейчас, когда я пытаюсь открыть Filename = "8_20190311144227. Jpg" Когда прошелстроковая переменная, которую я не открываю, если строка, вставленная непосредственно в открытый файл, открывается в первом случае, return = 2, во втором return = 42 Эта процедура, которую я использую:

 Private Const SW_SHOWMAXIMIZED = 3

      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 OpenFile(by val FileName As String, stPath As String)
         'ShellExecute 0, "Open", FileName, "", "", 1
         Dim result As Long, hwnd As Long
         hwnd = GetActiveWindow&
        result = ShellExecute(hwnd, "Open", FileName, "", stPath, SW_MAXIMIZE)
        'FileName= "8_20190311144227.jpg"
End Sub

Грази за л«Aiuto