Divide curves Using VB

[loizoju]

Hi to everybody

I would like to fine the way to divide a curve by a fixed length using
the VB Component.
I'm working on multiple curves and i would to take each curve
separatly, create some points on and put a square on each point with a
different scale.
This is the script that i did for on curve but using a dividelength
component before. The output is using to define height and the width
in a rectangle component

Sub RunScript(ByVal ptsCurve As List(Of On3dPoint), ByVal ptMidle As
On3dPoint, ByVal inCurve As OnCurve)
    Dim ptonCrv As on3dPoint
    Dim ptListe As New List (Of Double)
    Dim Increment As Double
    Increment = 0.02
    For Each ptonCrv In ptsCurve
      ptListe.add(Increment)
      If ptonCrv.x < ptMidle.x Then
        Increment = Increment + 0.0025
      Else Increment = Increment - 0.0025
      End If
    Next

    A = ptListe
  End Sub

Thanks
PS: I'm french, so i'm sorry if my english is a little bit bad