Che stupido che sono mi ero dimenticato un pezzo ora funziona bastava correggere con questo pezzo
codice:
Dim nomeFile, nomeCartella As String
    nomeCartella = "prova"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (Not FSO.FolderExists("C:\" & nomeCartella)) Then
    	FSO.CreateFolder("C:\" & nomeCartella)
    End If
Ed il gioco è fatto, grazie mille oregon sei stato davvero gentilissimo e rapidissimo nella risposta
Ho usato nomeCartella solo perché poi vi verrà passata tramite variabile esterna e quindi basta che poi modifico il nome della variabile e tolgo la dichiarazione iniziale, ma solo così riuscivo a testarla.