Проверка наличие архива в папке - 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)