is there a better way...?

[cyborg]

is there a faster (better) way of doing this?

Private Function GetAngle(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Single
    On Error Resume Next
    Dim XDiff As Long
    Dim YDiff As Long
    Dim Angle As Single
    XDiff = Abs(X1 - X2)
    YDiff = Abs(Y2 - Y1)
    Angle = Atn(XDiff / YDiff)
    Angle = Angle * 180 / Pi
    If Y2 > Y1 Then Angle = 180 - Angle
    If X2 < X1 Then Angle = 0 - Angle
    
    If Angle < 0 Then Angle = 360 + Angle
    
    If YDiff = 0 And X1 - X2 < 0 Then
        Angle = 90
    End If
    
    If YDiff = 0 And X1 - X2 > 0 Then
        Angle = 270
    End If
    
    GetAngle = Angle
End Function