Private Function Min2VariantVerify()
    ' Test the Min2Variant function.

    Debug.Assert Min2Variant(2, -2) = -2
    Debug.Assert Min2Variant(-2, 2) = -2

    ' Return leftmost argument.
    Debug.Assert VarType(Min2Variant(2&, 2#)) = vbLong
    Debug.Assert VarType(Min2Variant(2#, 2&)) = vbDouble

    ' Perform Binary comparisons.
    Debug.Assert Min2Variant("Joe", "JOE") = "JOE"
    Debug.Assert Min2Variant("JOE", "Joe") = "JOE"

    ' Explicit Text comparisons.
    Debug.Assert Min2Variant("Joe", "JOE", vbTextCompare) = "Joe"
    Debug.Assert Min2Variant("JOE", "Joe", vbTextCompare) = "JOE"

End Function