codice:
If Dir("C:\pippo", vbDirectory) = "" Then
    MsgBox "Non c'è"
End If
ovviamente sostituisci "C:\pippo" col percorso della tua directory