UPDATE: This is the WIP Function.
<% Function ReturnTwoValues(Data) If Data= Now() Then Var1= \"ABC\"
Easy workarounds:
Use an array, or
Use a dictionary object.
Here's an earlier StackOverflow question that has a full rundown: QTP: How can I return multiple Values from a Function