Does it have to be VB script, or could you use a capable, free program?
I personally use Renamer from http://www.den4b.com/projects.php.
Lee