Nice !
I had a problem with line 57 ( DIM AS Vector a1, a2, a3, a4, a5, a6, a7, a8, a9 )
and replaced it with:
DIM a1 AS Vector: DIM a2 AS Vector: DIM a3 AS Vector
DIM a4 AS Vector: DIM a5 AS Vector: DIM a6 AS Vector
DIM a7 AS Vector: DIM a8 AS Vector: DIM a9 AS Vector
Reason ??? (V1.4 in use)