Private Sub Command1_Click()
Dim Difference As Double
Dim Angle1 As Double 'These are degree angles
Dim Angle2 As Double 'Use Angle * pi / 180 for radians
Dim Direction As String
Angle1 = Text1
Angle2 = Text2
Difference = Angle2 - Angle1
If Difference > 180 Then
Difference = 360 - Angle2 + Angle1
Direction = "Counter Clockwise"
ElseIf Difference < -180 Then
Difference = 360 - Angle1 + Angle2
Direction = "Clockwise"
ElseIf Difference < 0 Then
Difference = Angle1 - Angle2
Direction = "Counter Clockwise"
Else
Direction = "Clockwise"
End If
Debug.Print Direction, Difference
End Sub