NXjournal: Eval.AskArc problem 2406

[MANox]

Hello,

many time ago I wrote journal and I used in then some function:

Dim theUfSession As UFSession = UFSession.GetUFSession()

    Function GetArcCenter(edge1 As Edge) As Double()
        Dim centerCoords As Double()
        Try
            Dim edgeTag As NXOpen.Tag = edge1.Tag
            Dim estruct As System.IntPtr
            theUfSession.Eval.Initialize2(edgeTag, estruct)
            Dim evalArc As NXOpen.UF.UFEval.Arc
            theUfSession.Eval.AskArc(estruct, evalArc)
            centerCoords = evalArc.center
            Dim diameter As Double = evalArc.radius
        Catch e As Exception
            centerCoords = Nothing
        End Try
        Return centerCoords
    End Function

And in NX2007 it works.

But now I update to NX2406 and when I delete Try Loop I have error 8 line:
NXOpen.NXException: The first parameter passed in was invalid.
w NXOpen.UF.UFEval.AskArc(IntPtr evaluator, Arc& arc)

Do You have any suggestion why this don't work?

Best regards
MANok

NX2406
Tc2412