Creating Triangle

I try install a X3 version but dont works, I think this code will work in X3, I lowered the API usage

[CgsAddInMacro]
public Shape CreateTriangle2(double a, double b, double c)
{
    double AX = 0, AY = 0;
 
    if (a > Math.Abs(b - c) && a < b + c && b > Math.Abs(a - c) && b < a + c && c > Math.Abs(a - b) && c < a + b)
    {
 
        double cosA = (Math.Pow(b, 2) + Math.Pow(c, 2) - Math.Pow(a, 2)) / (2 * b * c);

 
        double anguloA = Math.Acos(cosA);
    
 
        double alpha = anguloA * (180 / Math.PI);

 
 
        double BX = AX + b;
        double BY = AY;
 
 
        double CX = AX + c * Math.Cos(alpha * Math.PI / 180);
        double CY = AY + c * Math.Sin(alpha * Math.PI / 180);
 
 
        Curve cur = corelApp.CreateCurve(corelApp.ActiveDocument);
        SubPath sp = cur.CreateSubPath(AX, AY);
        sp.AppendLineSegment(BX, BY);
        sp.AppendLineSegment(CX, CY);
        sp.AppendLineSegment(AX, AY);
 
        return corelApp.ActiveLayer.CreateCurve(cur);
 
 
    }
    else
        throw new Exception("These measurements do not form a triangle");
}

Function CreateTriangle2(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Shape
Dim AX As Double, AY As Double
AX = 0
AY = 0

If a > Abs(b - c) And a < b + c And b > Abs(a - c) And b < a + c And c > Abs(a - b) And c < a + b Then
Dim cosA As Double

Dim anguloA As Double

Dim alpha As Double

Dim BX As Double
Dim BY As Double
Dim CX As Double
Dim CY As Double

cosA = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)

anguloA = Acos(cosA)

alpha = anguloA * (180 / Pi)

BX = AX + b
BY = AY

CX = AX + c * Cos(alpha * Pi / 180)
CY = AY + c * Sin(alpha * Pi / 180)

Dim cur As Curve
Set cur = CreateCurve(ActiveDocument)
Dim sp As SubPath
Set sp = cur.CreateSubPath(AX, AY)
sp.AppendLineSegment BX, BY
sp.AppendLineSegment CX, CY
sp.AppendLineSegment AX, AY

Set CreateTriangle2 = ActiveLayer.CreateCurve(cur)
Else
Err.Raise vbObjectError + 1, "CreateTriangle2", "These measurements do not form a triangle"
End If
End Function

I couldn't test VBA