Renombrar imágenes en carpeta desde vba

Hola, tengo una base de datos Access 2003 en la que tengo vinculadas las imágenes de alumnos, según su expediente. Hasta ahí todo perfecto. El tema es que ahora necesito renombrar todas las imágenes, que están en una carpeta del disco y en vez de que se llamen como su "expediente.jpg" necesito que se llamen como "otrocampodelatabla.jpg". Por ejemplo: tengo 1000 imágenes en una carpeta llamadas 1.jpg, 2.jpg, 3.jpg, 4.jpg y 5.jpg, etc que corresponden con los valores del campo "Expediente" y necesito renombrarlos como 489.jpg, 833,jpg, 343,jpg, 390.jpg y así sucesivamente cogiendo dicho valor de otro campo de la tabla.

Me gustaría poner un botón en un formulario que hiciese esta operación.

En fin, agradezco cualquier ayuda.
Saludos.