non capisco cosa c'entri il rinominare una variabile...

comunque per rinominare una cartella puoi risolvere semplicemente con un paio di righe, utilizzando il FileSystemObject

codice:
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFolder "C:\Cartella", "C:\NuovaCartella"
Set FSO = Nothing
Boolean