Dim Winkel1 As Double, Winkel2 As Double
If X1 = 0 Then Winkel1 = Atn(1) * 2
If X1 <> 0 Then Winkel1 = Atn(Y1 / X1)
If X2 = 0 Then Winkel2 = Atn(1) * 2
If X2 <> 0 Then Winkel2 = Atn(Y2 / X2)
If Winkel2 > Winkel1 Then Label1 = "Links"
If Winkel2 < Winkel1 Then Label1 = "Rechts"
If Winkel2 = Winkel1 Then Label1 = "Geradeaus"