Определить номера точек, расстояние между которыми минимальное

Sub minDist()
Dim X() As Double, Y() As Double, i1 As Integer, i2 As Integer
      DMin# = (X(1) - X(2)) ^ 2 + (Y(1) - Y(2)) ^ 2
      For i% = 1 To UBound(X, 1) - 1
           For j% = i% + 1 To UBound(X, 1)
                dd# = (X(i%) - X(j%)) ^ 2 + (Y(i%) - Y(j%)) ^ 2
                If (dd# < DMin#) Then
                   DMin# = dd#
                   i1 = i%
                   i2 = j%
                End If
            Next j%
        Next i%
End Sub

Option Explicit
 
Sub minDist0416()
'Заданы координаты четырех точек на плоскости.
'Определить номера точек, расстояние между которыми минимальное.
Dim X(), Y()
Dim i%, j%, i1, i2
Dim dmin, dd
'начальное, заведомо большое значение
dmin = 999
'присвоение  координат точек
X = Array(1#, 2#, 3, 4)
Y = Array(4#, 2, 3, 8)
'цикл между текущей точкой и следующей
For i = LBound(X, 1) To UBound(X, 1) - 1
For j = i + 1 To UBound(X, 1)
dd = (X(i) - X(j)) ^ 2 + (Y(i) - Y(j)) ^ 2
Debug.Print i, j, "x1=" & X(i), "y1=" & Y(i), "x2=" & X(j), "y2=" & Y(j), "dd^2=" & dd
 
If (dd < dmin) Then
 
dmin = dd
i1 = i
i2 = j
End If
Next j
Next i
'резудьтат
Debug.Print "i1=" & i1, "i2=" & i2, " min расстояние", Sqr(dmin)
 
 
'' 0             1            x1=1          y1=4          x2=2          y2=2          dd^2=5
'' 0             2            x1=1          y1=4          x2=3          y2=3          dd^2=5
'' 0             3            x1=1          y1=4          x2=4          y2=8          dd^2=25
'' 1             2            x1=2          y1=2          x2=3          y2=3          dd^2=2
'' 1             3            x1=2          y1=2          x2=4          y2=8          dd^2=40
'' 2             3            x1=3          y1=3          x2=4          y2=8          dd^2=26
''i1=1          i2=2           min расстояние              1,4142135623731
End Sub