Np. Sorry, I figured you'd be ok fixing the other errors yourself.
Did you fix the "'s for all the lines that have "Row without an end quote? (lines 2935, 2944, 2953, and 2962)
The next error is an illegal number of brackets at line 3046. Which is just adding a ) before the last period to make the array work right.
In the outrageous amount of nested IF/ENDIF statements in the RateSquare function remove the ENDIF's on lines 3246, 3270, 3294, 3350, 3374, and 3398. They are extra ENDIF's that shouldn't be there.
And the last one I'll do is line 3617 refers to an array that doesn't exist (I'll let you figure out where to dimentionalize it): AIPieces(c).nPieceID