Excel Vba Select Case Function In Sql