This is some new code i have been writing:
Option Explicit
Option Base 1
Dim row, col, i As Long
Dim seg As Integer
Dim np, ns As Long
Dim X, Y, L As Double
Dim SinB, CosB, Sin2B As Double
Function SectionalProperties()
ReDim X(np)
ReDim Y(np)
ReDim seg(ns, 2)
np = 5...