Vba Sql Nested Function