Try adding this line of code just before looping for Next FileItem:
Set Result = Nothing