Calling functions gets error 13 mismatch?

Hey,

I'm writing a macro to fix my music collection. The first part is just choosing the folder to search and the file to find. So it loops to find all sub folders to check (by the FileList function), in looping through these folders. In each folder it gets the FileArray (by FileList function) to start checking for the 'FindFile'. But here it stops at "ERROR LINE". I had working in parts, but together its failing with Error13 Mismatch and I don't know why.

Please Login or Register  to view this content.

and the functions:

Please Login or Register  to view this content.

Thanks peeps cause I'm lost!!!