Finding the 'base' surface in a FlowAlongSrf history chain

As the title says, I’m having the user pick a surface which is either the Base or Target surface in a FlowalongSrf with istory, and trying to retrieve the Base surface. The base surface is always flat, but then the target surface could be too, so that’s not working. In VBScript.

Thanks,
Jim