Mover archivos y carpetas en vba?

Estoy intentando generar código en vba para incluirlo como un procedimiento de evento al hacer click en un botón de un formulario de Access.

Lo que necesito es que copie todos los archivos ubicados en una carpeta que empieza por una serie de caracteres fijos y los pegue en una ruta fija. Para finalizar tiene que eliminar la carpeta origen.

Por mi parte he llegado a esto.

Dim rutaOld As String, rutaNew As String
Dim fso As Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
rutaOld = "S:\origen\qmd12\"
rutaNew = "S:\destino\"
fso.MoveFile rutaOld & "*.*", rutaNew

El problema es que la carpeta qmd12 la genera un programa que le da un nombre diferente cada vez que se ejecuta siendo los 3 primeros caracteres fijos. Por ejempo "qmd12", "qmd21", etc.