Thanks for reply! I want to use this subroutine to scan many files. With only few patterns, speed is increased considerably. I must find the way to load all patterns in one shot without that loop. I'm learning now.