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

Please Login or Register  to view this content.

Thanks

Here's how I would do that:

Please Login or Register  to view this content.