[Manifold-l] Simple VB Help

[lkong at engenious.com]

I'm a c# programmer trying to write a simple VB Script.  I'm sure it is a
syntax issue, but I sure can't see it.  When I try to run this, I get a
Division by Zero, line 23 message.  Line 23 is the Xval = line.
I would appreciate any hints that I can get on this one.

Sub Main
	Set CSet=Application.ActiveDocument.ComponentSet
	Set WDraw=CSet.Item("Runoff pattern 2")
	Set WTbl=WDraw.OwnedTable
	Set WColSet=WTbl.ColumnSet
	rem assume columns are defined
	Set rs=wTbl.Selection
	runNum = 1
	seq=1
	fromcnt=0
	tocnt=0
	rs.Item(0).Data("seq") = seq
	seq=seq+1
	Xval=0.0
	Yval=0.0
	LLen=0.0
	for n=1 to rs.Count-1 step 1
		rs.Item(n-1).Data("To")=rs.Item(n).Data("ID")
		rs.Item(n).Data("From")=rs.Item(n-1).Data("ID")
		rs.Item(n).Data("Run") = runNum
		rs.Item(n).Data("Seq") = seq
		seq=seq+1
Xval = (rs.Item(n-1).Data("X (I)") - rs.Item(n).Data("X (I)"))^2
Yval = (rs.Item(n-1).Data("Y (I)") - rs.Item(n).Data("Y (I)"))^2
		LLen=Sqr(Xval+Yval)
		rs.Item(n-1).Data("LineToLen")=LLen
		Z=rs.Item(n-1).Data("Height")-rs.Item(n).Data("Height")
		if Length>0.0 then
			rem rs.Item(n-1).Data("LineToSlope")=Z/LLen
		end if
	next
	rs.Item(rs.Count-1).Data("LineToLen")=0.0
End Sub


Thank You
Lenny