¡Lo tengo!
Pos=InStr(objFile.Name,"_")
Pos2 = InStr(Pos+1, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos+1, (Pos2 - Pos)-1)
Ahora sí me devuelve la cadena sin los guiones, tengo que probar si funciona con cualquier cadena, sea cual sea su longitud, pero parece que sí funciona.
Muchas gracias por la ayuda
