Отсутствие файла изображения при загрузке

Path = "Ris" & Item.SubItems(3) & ".jpg"
Picture1.Picture = LoadPicture(Path)

Path = "Ris" & Item.SubItems(3) & ".jpg"
IF DIR(PATH)="" THEN PATH="какая то альтернативное изображение.BMP"
Picture1.Picture = LoadPicture(Path)

Private Sub Form_Load()
    Dim pic         As StdPicture
    Dim fileName    As Variant
 
    On Error GoTo error_handler
    
    For Each fileName In Array( _
                "Dawn on Europa.jpg", _
                "0_11b167_7a8aedcb_orig.png", _
                "icoCopy.ico", _
                "Project006.gif", _
                "3dSound367.png")
 
        Set pic = LoadPicture(fileName)
    
    Next
    
    Exit Sub
    
error_handler:
    Dim msg As String
    
    Select Case Err.Number
    Case 53:    msg = "Файл '" & fileName & "' не найден."
    Case 481:   msg = "Файл '" & fileName & "' поврежден или имеет неопознанный формат."
    Case Else:  msg = Err.Description
    End Select
 
    If MsgBox(msg, vbRetryCancel, "Ошибка") = vbRetry Then
        Resume
    Else
        Resume Next
    End If
    
End Sub

Path = Item.SubItems(4)    ' это работает
If Dir(Path) = "" Then Path = App.Path & "\images\Ris0.jpg"  ' это не работает
Picture1.Picture = LoadPicture(Path)  ' это работает