VB Interpolated Curves

I'm reviewing an older tutorial that Woo Jae Sung put together. It was composed before RhinoCommon came into use, so as I study it I am also trying to translate it into RhinoCommon as I am on Rhino5 now..

It's basically using a 3d framework to define points on the framework and then interpolate curves through them.

Right now Im assuming that I merely translated something incorrectly early in the script that lead to most of the definition issues later on...?? It also seems I am not using the append function correctly... :(

If anybody well versed could take a look it would be awesome...  :)

The code I've used is below and the erros I get are attached here:

  Private Sub RunScript(ByVal ptSetA As List(Of Point3d), ByVal ptSetB As List(Of Point3d), ByVal divU As Integer, ByVal divV As Integer, ByRef A As Object, ByRef B As Object)

    Dim n As Integer = 0

    Dim ptListA As New List(Of list(Of Point3d))
    Dim ptListB As New List(Of list(Of Point3d))


    For i As Integer = 0 To divU

      Dim ptRowA As New List(Of Point3d)
      Dim ptRowB As New list(Of point3d)

      For j As Integer = 0 To divV

        Dim ptA As New Point3d(ptSetA(n))
        Dim ptB As New point3d(ptSetB(n))

        ptRowA.Add(ptA)
        ptRowB.Add(ptB)

        n = n + 1



      Next

      ptListA.Add(ptRowA)
      ptListB.Add(ptRowB)

    Next

    Dim intcvListA As New List(Of NurbsCurve)


    For i As Integer = 0 To divU - 1 Step 2
      For j As Integer = 0 To divV - 1 Step 1

        Dim pt01A As New point3d((ptListA(i)(j) + ptListA(i)(j + 1)) / 2)
        Dim pt01A As New point3d((ptListA(i + 1)(j) + ptListB(i + 1)(j)) / 2)
        Dim pt01A As New point3d((ptListA(i + 2)(j) + ptListA(i + 2)(j + 1)) / 2)
        Dim pt01A As New point3d((ptListA(i + 1)(j) + ptListA(i + 1)(j + 1)) / 2)

        Dim dis01A As Double = pt01A.DistanceTo(pt04A)
        Dim dis02A As Double = pt03A.DistanceTo(pt04A)
        Dim vt01A As New Vector3d((pt04A - pt01A) / dis01A)
        Dim vt02A As New Vector3d((pt03A - pt04A) / dis02A)



        Dim pt01B As New point3d((ptListB(i)(j) + ptListB(i)(j + 1)) / 2)
        Dim pt01B As New point3d((ptListA(i + 1)(j) + ptListB(i + 1)(j)) / 2)
        Dim pt01B As New point3d((ptListB(i + 2)(j) + ptListB(i + 2)(j + 1)) / 2)
        Dim pt01B As New point3d((ptListB(i + 1)(j) + ptListB(i + 1)(j + 1)) / 2)

        Dim dis01B As Double = pt01B.DistanceTo(pt04B)
        Dim dis02B As Double = pt03B.DistanceTo(pt04B)
        Dim vt01B As New Vector3d((pt04B - pt01B) / dis01B)
        Dim vt02B As New Vector3d((pt03B - pt04B) / dis02B)




        Dim ptArrA As New List(Of Point3d)
        ptArrA.Append(pt01A)
        ptArrA.Append(pt02A)
        ptArrA.Append(pt03A)
        Dim intcvA As New NurbsCurve()
        intcvA = CreateInterpolatedCurve(ptArrA, 3)
        intcvListA.Add(intcvA)

        Dim ptArrB As New List(Of Point3d)
        ptArrB.Append(pt01B)
        ptArrB.Append(pt02B)
        ptArrB.Append(pt03B)
        Dim intcvB As New NurbsCurve()
        intcvB = CreateInterpolatedCurve(ptArrB, 3)
        intcvListB.Add(intcvB)

      Next

    Next

    A = intcvListA