The only thing I managed to find was this:

http://www.freevbcode.com/ShowCode.asp?ID=966

It's built for VB5 and 6 so porting to VBA should be simple.

Cheers

Dan