How do I invert a point as if on a coordinate plane

[timsta97]

If I have a point (50, 30) How would I get an inverted point in the same quadrant (Quadrant I)?

Let's say the quadrant is (100, 100)

[timsta97]

So you want to enter (50, 30) and get back (30, 50)? This code will do that, but it has absolutely no error checking.

Local $point = InputBox("Enter a point", "Format: (x, y)" & @CRLF & "Min: 100" & @CRLF & "Max: 100")
MsgBox(64, "The inverted point's coordinates are:", _InvertPoint($point))

Func _InvertPoint($sPoint)
    Local $aPoint = StringSplit(StringRegExpReplace(StringStripWS($sPoint, 8), "\(|\)", ""), ",", 2)
    $sPoint = "(" & $aPoint[1] & ", " & $aPoint[0] & ")"
    Return $sPoint
EndFunc

Thanks, this code is great, If I need to I could try to add some error checking.