This is a short VB function I made a while ago; I probably pulled parts of it from various VB sites around the Internet, but it was so long ago now that I don't recall them well enough to give credit ...