Sub genSplineMy()
    Dim ControlPoints1(5) As Double
    Dim Knots1(3) As Double
    ControlPoints1(0) = 1.5
    ControlPoints1(1) = 10.25
    ControlPoints1(2) = 2.21642
    ControlPoints1(3) = 10.1541
    ControlPoints1(4) = 2.375
    ControlPoints1(5) = 9.875
    Knots1(0) = 0
    Knots1(1) = 0
    Knots1(2) = 0
    Knots1(3) = 2.66958

    Application.ActiveWindow.Page.DrawNURBS 3, 0, ControlPoints1, Knots1
End Sub