Move files based on part of their name VBA

Is it possible to move a file (.xlsx) to another folder whit only part of that name?


For example:

file name to move (.xlsx)
#Import#0181004401#0000015227_BEI_1300090026_20211206210105
#Import#0181004482#0000015402_BEI_1300090389_20211208210239
...
--------------

The files where I want to move the files:
353556_Lidl_0181004401
374684_Lidl_0181004482

........

#Import#0181004401#0000015227_BEI_1300090026_20211206210105.xlsx ---> 353556_Lidl_0181004401
#Import#0181004482#0000015402_BEI_1300090389_20211208210239.xlsx ---> 374684_Lidl_0181004482



tnx!