Primero que nada bienvenido al foro 
Luego .. tu segundo code, el del for each haría bien el trabajo, y para quitar el "_100.msk" deberías de cambiar esta línea:
El replace se utiliza para reemplazar texto, pero ten en cuenta que el nombre de un archivo no es más que texto
Saludos

Luego .. tu segundo code, el del for each haría bien el trabajo, y para quitar el "_100.msk" deberías de cambiar esta línea:
Código (vb) [Seleccionar]
fso.MoveFile archivo.path, replace(archivo.name, "_100.msk", ".msk")
El replace se utiliza para reemplazar texto, pero ten en cuenta que el nombre de un archivo no es más que texto

Saludos