写一段CAD vba代码，已知的多个坐标，求每个坐标与相邻坐标的角度

Sub 计算角度()
Dim x1, y1, x2, y2 As Double
Dim 角度 As Doublex1 = Cells(1, 1).Value
y1 = Cells(1, 2).Value
x2 = Cells(2, 1).Value
y2 = Cells(2, 2).Value角度 = Application.WorksheetFunction.Atan2(y2 - y1, x2 - x1)MsgBox 角度End Sub