Receive multiple Curve and Point in RhinoCommon

Dear, David

I'm now try to debug my code, but grasshopper VB.net solution was not possible to debug.

So, I tried to convert it to rhinocommon plug-in.

But, some problems..

as is my code,..

it does not work when I debug...

Dim filter As Rhino.DocObjects.ObjectType = Rhino.DocObjects.ObjectType.Curve
        Dim objref As Rhino.DocObjects.ObjRef = Nothing
        Dim rc1 As Rhino.Commands.Result = Rhino.Input.RhinoGet.GetOneObject("Select ACurve", False, filter, objref)
        If rc1 <> Rhino.Commands.Result.Success OrElse objref Is Nothing Then
            Return rc1
        End If
 
        Dim crvA As Rhino.Geometry.Curve = objref.Curve()
        If crvA Is Nothing OrElse crvA.IsShort(Rhino.RhinoMath.ZeroTolerance) Then
            Return Rhino.Commands.Result.Failure
        End If
        Dim rc2 As Rhino.Commands.Result = Rhino.Input.RhinoGet.GetOneObject("Select BCurve", False, filter, objref)
        If rc2 <> Rhino.Commands.Result.Success OrElse objref Is Nothing Then
            Return rc2
        End If
 
        Dim crvB As Rhino.Geometry.Curve = objref.Curve()
        If crvB Is Nothing OrElse crvB.IsShort(Rhino.RhinoMath.ZeroTolerance) Then
            Return Rhino.Commands.Result.Failure
        End If
        Dim rc3 As Rhino.Commands.Result = Rhino.Input.RhinoGet.GetOneObject("Select Bcurve", False, filter, objref)
        If rc3 <> Rhino.Commands.Result.Success OrElse objref Is Nothing Then
            Return rc3
        End If
 
        Dim crviB As Rhino.Geometry.Curve = objref.Curve()
        If crviB Is Nothing OrElse crviB.IsShort(Rhino.RhinoMath.ZeroTolerance) Then
            Return Rhino.Commands.Result.Failure
        End If
        Dim filterPt As Rhino.DocObjects.ObjectType = Rhino.DocObjects.ObjectType.Point
        Dim Pot As Rhino.Geometry.Point = objref.Point
        Dim rc4 As Rhino.Commands.Result = Rhino.Input.RhinoGet.GetOneObject("Select Point", False, filter, objref)
        If rc4 <> Rhino.Commands.Result.Success OrElse objref Is Nothing Then
            Return rc4
        End If
        Dim Pt As Rhino.Geometry.Point3d
        Pt = Pot.Location