FreeVBCode code snippet: A Binary Search Algorithm