Проверка наличие архива в папке - VB

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

Ребята подскажите где я. что не так делаю. не проверяет наличие архива в папке?:

Dim RetVal
Dim othet As String 
'проверка наличие архива
 If Dir(rrr$) <> "" Then 'РУГАЕТСЯ НА ЭТУ СТРОКУ!!!
   MsgBox "архив существует!", 64, "СООБЩЕНИЕ!"
  Else
     MsgBox "архива нет!", 64, "СООБЩЕНИЕ!"
End If
 
othet = ("C:\Users\Public\Desktop\ОТЧЕТЫ")
ish$ = Chr(34) & othet & "\*.xlsx" & Chr(34) 
rrr$ = Chr(34) & App.Path & "\arhiv\Архив_отчет_.rar" & Chr(34) 
 
'архивация с установкой всех требуемых параметров архива
RetVal = Shell(App.Path & "\BD\rar.exe m -y -m5 -ep -agmm.YYYY " & rrr$ & " " & ish$, vbNormalFocus)

Решение задачи: «Проверка наличие архива в папке»

textual
                            Листинг программы 
                        
                             If Dir(App.Path & "\arhiv\Архив_отчет_" & Format(Date, "mm.YYYY"".rar")) <> "" Then