Problem Solved, Thanks for assistance in the meantime!
Dim basePart As BasePart = theSession.Parts.BaseWork
Dim baseFEMPart As CAE.BaseFemPart = CType(basePart, CAE.BaseFemPart)
Dim baseFEModel As CAE.BaseFEModel = CType(baseFEMPart.BaseFEModel, CAE.BaseFEModel)...