Ciao,
Dato che non è fornita dal Framwork una funzione apposita per rinominare un file, devi usare la funzione per spostarlo, quindi puoi creare e usare usare una funzione tipo questa:
Shared Sub RinominaFile(ByVal filePath As String, ByVal newName As String)
'Ottieni la directory del file
Dim dirName As String = System.IO.Path.GetDirectoryName(filePath)
'Ottieni il percorso completo del file rinominato
Dim newPath As String = System.IO.Path.Combine(dirName, newName)
'Rinomina il file
System.IO.File.Move(filePath, newPath)
End Sub
Poi passerai come parametro filePath una stringa tipo "C:\Percorso\File.ext", e a newName una tipo "NuovoNome.ext"
Luca