FreeVBCode code snippet: A Singleton Function for VB