Sub Distance_Min_Sum()
Const N =  3     'число точек в наборе
Dim p(1 To N, 1 To 2), i&, j&, ds#, sx#, sy#, ss#, x#, y#

p(1, 1) = 0: p(1, 2) = 0         '( 0 ;  0 )
p( 2 ,  1 ) =  2 : p( 2 ,  2 ) =  0          '(2; 0)
p(3, 1) = 1: p(3, 2) = 10000     '( 1 ;  10000 )

For i =  1  To N
x = x + p(i,  1 )
Next i
x = x / N    '0-ое приближение: X равен ср. арифметическому Xi
For i = 1 To N
y = y + p(i, 2)
Next i
y = y / N    '0-ое приближение: Y равен ср. арифметическому Yi

For j =  1  To  500     'число итераций
sx = 0: sy = 0: ss = 0
For i = 1 To N
ss = ss + 1 / Sqr((p(i, 1) - x) ^ 2 + (p(i, 2) - y) ^ 2)
Next i
For i = 1 To N
sx = sx + p(i, 1) / Sqr((p(i, 1) - x) ^ 2 + (p(i, 2) - y) ^ 2)
Next i
x = sx / ss    'j-ое приближение для X целевой точки
For i =  1  To N
sy = sy + p(i,  2 ) / Sqr((p(i,  1 ) - x) ^  2  + (p(i,  2 ) - y) ^  2 )
Next i
y = sy / ss    'j-ое приближение для Y целевой точки
Next j

'находим сумму расстояний ds и выводим результат
For i =  1  To N
ds = ds + Sqr((p(i,  1 ) - x) ^  2  + (p(i,  2 ) - y) ^  2 )
Next i
MsgBox x & vbCrLf & y & vbCrLf & ds
End Sub