Puedes hacerlo con la instrucción Name.
Name nombre_ruta_antigua As nombre_ruta_nueva
Este es eñ ejemplo que viene en la ayuda:
Dim NombreViejo, NombreNuevo
NombreViejo = "VIEJO": NombreNuevo = "NUEVO" ' Se definen nombres de archivo.
Name NombreViejo As NombreNuevo ' Se cambia el nombre del archivo.
NombreViejo = "C:\MIDIR\VIEJO": NombreNuevo = "C:\TUDIR\NUEVO"
Name NombreViejo As NombreNuevo ' Se mueve el archivo y se cambia su nombre.