Найти номера пары точек, растояние между которым наибольшее - VB

Sub MaxDist(X() as double, Y() as double)
  n%=Ubound(X,1)
  dmax#=-1
  For i%=1 to n%-1
       For j%=i%+1 to n%
            d#=(X(i%)-X(j%))^2+(Y(i%)-Y(j%))^2
            if d# > dmax# then
               p%=i%
               q%=j%
               dmax#=d#
            End if
         Next j%
    Next i% 
    Debug.Print "Номера максимально удаленных друг от друга точек: ";p%;" ";q%
End Sub