FreeVBCode code snippet: "Smart" Select Case for Decision-Making