Fatta la ricerca e subito trovato la risposta, cosa che non era avvenuta prima :P
ecco come

IF(Dir(path_directory,vbDirectory)<>"") Then
msgbox("CE STA")
else
msgbox("NUN CE STA")
end if