ti sembra male...

inserisci la costante:

codice:
Private Const BIF_NEWDIALOGSTYLE = &H40
nella sezione dichiarazioni del modulo del progetto, e modifica questa riga nella Function BrowseForFolder:

codice:
.ulFlags = BIF_RETURNONLYFSDIRS Or BIF_DONTGOBELOWDOMAIN Or BIF_STATUSTEXT Or BIF_NEWDIALOGSTYLE
e il pulsante per la creazione della cartella apparirà

Boolean