Copy Parallel using mdlElmdscr_copyParallel in VBA

I am trying to write a vba macro to create two elements copied parallel from a centreline at given distances between on each side. I am using MicroStation CE update 14 and trying to use the mdlElmdscr_copyParallel and mdlElmdscr_extractNormal, but I am find the example I have found is throwing an error "Type Mismatcfh" on the iElem.MdlElementDescrP, has something changed with this in connect edition or should I be looking for something else.

    If DrawMode = msdDrawingModeTemporary Then
        If 0 = mdlElmdscr_extractNormal(Normal, PntOnElm, iElem.MdlElementDescrP, View.Rotation.RowZ) Then
            If 0 = mdlElmdscr_copyParallel(oElemDscrP, iElem.MdlElementDescrP, point, dOffset, Normal) Then
                Set oElem = MdlCreateElementFromElementDescrP(oElemDscrP)
            End If
        End If
    End If