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.