Qualcosa del genere

codice:
    Dim a As Long
    
    On Error Resume Next
    a = GetAttr("X:\Percorso\Cartella")
    Debug.Print a
che dovrebbe restituire 0 o 16 a seconda che esista o meno la cartella ...

Ma se ti serve solamente per crearla se non esiste, puoi usare direttamente la MkDir