Use data in loop

Dim MCS, DIENTICH, DN, votau, i,
votau = Rhino.GetObject(“Select polysurface”)
DN = Rhino.AddSrfContourCrvs(votau, Array(0.0, 0.0, 0.0), Array(0.0, 0.0, 1000), 200) ( it create DN are curve close)
For i = 0 To 5
DIENTICH = Rhino.CurveArea(DN(i))
Pr = CStr(DIENTICH(0))
Next.
Rhino.AddInterpCurve array( arraypoint ( pr0 , 0, 0), arraypoint (pr1, 0, 0)…)
It not run.
Please help me