求助，大家看看这个代码啥意思啊

Sub BuildUserCoordinate() '建立用户坐标系
Dim RX: Scale
RX = MinX + ScaleWidth / ScaleHeight * (MaxY - MinY)
Scale (MinX - (RX - MinX) * 0.02, MaxY + (MaxY - MinY) * 0.05)-(RX + (RX - MinX) * 0.08, MinY - (MaxY - MinY) * 0.05)
End Sub
看不懂这个代码啥意思，还有倒数第二条语句运行时提示除数为零，求高手指教