Problemer med at skrive kode i VBA

Jeg har nogle data, f.eks.

nr        Rækkefølge
1  x1 y1      a
2  x2 y2      b
3  x3 y3      c
4  x4 y4      d
5  x5 y5      e
6  x6 y6      f

hvor rækkefølge er en bestemt rækkefølge jeg har fundet disse punkter skal komme i. Jeg vil dog gerne bevare den oprindelige rækkefølge, derfor er det skrevet i en separat kolonne.

Nu vil jeg gerne have skevet en kode der ser nogenlunde således ud:

A = tilfældigt tal (a-f)
Do
  B = tilfældigt tal (a-f)
Loop until B > A
C = sqr((XA - XB+1)^2 + (YA - YB+1)^2)
D = sqr((XB - XA+1)^2 + (YB - YA+1)^2)

Så skal den nye rækkefølge regnes ud:
Eks.
Hvis A = a og B = e
Før Nu
a  a (= A)
b  e (= B)
c  d
d  c
e  b (= A + 1)
f  f (= B + 1)
dvs at efter A så skal den "tælle" fra B og baglens til A+1 hvorefter den skal fortsætte fra B+1 og fremefter som det var før.

Jeg håber det er nogenlunde forståeligt.
Håber på hurtigt svar.

Pernille