recuerda que puedes ejecutar comandos propios del DOS desde vb comoel REN para renombrar archivos para asegurarte que el cambio de nonmbre sea efectivo la carpeta no debe estar en uso
mira este codigo de una web

Option Explicit

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long

Sub EsperarShell(sCmd As String)

Dim hShell As Long
Dim hProc As Long
Dim codExit As Long

' ejecutar comando
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2)

' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)

Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE

MsgBox "El comando ha acabado"

End Sub

Private Sub Command1_Click()
EsperarShell (Text1.Text)
End Sub
' espero te funcione

Y baja las mayúsculas que es como si estuvieras gritando. La próxima ves borro el post.

Saludos.