Select Case ucase(q$)
　　Case "false","true": is_bool = True
　　Case else: is_bool = IsNumeric(q$)
end select