Non era proprio quello che cercavo, cmq ho optato per questa soluzione:

Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(TextBoxDirectory) Then
fs.CreateFolder (TextBoxDirectory)
End If

Se può essere utile!!!

ciao e grazie ancora!