ah mi sono dimenticato di dire che quando faccio il debug mi da la stringa:
fso.CreateFolder sfld & "\" & g1