impariamo a fare un po' di debug

la riga

objFso.CreateFolder(var_per_BAC&"\"&var_CART_bac)

la facciamo diventare

myNewFolder=var_per_BAC & "\" & var_CART_bac
Response.Write "
maGGico folder...: " & myNewFolder & "
"
Response.Flush
objFso.CreateFolder(myNewFolder)

e controlla se la cartella è giusta