VB gyötrelem

Sub Circles()
  Dim circle1(0 To 2) As Double, circle2(0 To 2) As Double 'x koordináta, y koordináta, sugár
  Dim x_diff As Double, y_diff As Double, c As Double

  circle1(0) = InputBox("Add meg az első kör középpontjának X koordinátáját")
  circle1(1) = InputBox("Add meg az első kör középpontjának Y koordinátáját")
  circle1(2) = InputBox("Add meg az első kör sugarát")

  circle2(0) = InputBox("Add meg a második kör középpontjának X koordinátáját")
  circle2(1) = InputBox("Add meg a második kör középpontjának Y koordinátáját")
  circle2(2) = InputBox("Add meg a második kör sugarát")

  x_diff = circle1(0) - circle2(0)
  y_diff = circle1(1) - circle2(1)
  c = Sqr(x_diff ^ 2 + y_diff ^ 2)

  If c > (circle1(2) + circle2(2)) Then
    MsgBox ("Nincs közös pontjuk")
  Else
    MsgBox ("Van közös pontjuk")
  End If
End Sub