filesystemobject

I am trying to implement a search using the filesystemobject using code borrowed from a book, Pure visual basic by Dan Fox.
In the routine given to call the search function the first line is :

Dim clsFileFunctions as New FileFunctions

When I try to run this I get a 'User defined type not defined' error message. Where or how do I define this?
Is it contained in a library such as the one I had to reference to use the filesystemobject (SCRRUN.DLL)?

It should be in the book someplace . you need to define the type "FileFunctions" . The code should start with "Type" . Hope fully it's in the book some place .