VBA code-file name replace dash with space

Hello,

I currently have this working macro in excel 2007 that will find any file in a folder of the format ???-???-???-??? ???-???-???.jpg and replace the space resulting in a changed file name called ???-???-???-???-???-???-???.jpg

I wanted to know if there was a way to reverse the procedure. If i could somehow given a file name of ???-???-???-???-???-???-???.jpg change it to look like ???-???-???-??? ???-???-???.jpg.

I already tried switching these statements in the code and it did not work for me.

The current working code is listed below

Sub RenameFiles()
shell "cmd.exe /c ren ""C:\Documents and Settings\Desktop\pictues\???-???-???-??? ???-???-???.jpg"" ???-???-???-???-???-???-???.jpg", vbNormalFocus
End Sub

Thanks

Here's how I would do that:

Option Explicit

Sub RenameFiles()
Dim fName
Dim fPath:  fPath = "C:\Documents and Settings\Desktop\pictures\"

fName = Dir(fPath & "???-???-???-???-???-???-???.jpg")

Do While Len(fName) > 0
    Name fPath & fName As _
        fPath & Application.WorksheetFunction.Substitute(fName, "-", " ", 4)
    fName = Dir
Loop

End Sub