Private Sub Form_Load()
x = 11
y = 2.5
T1 = (2 * y - x + Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
T2 = (2 * y - x - Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
MsgBox Atn(T1) * 180 / (4 * Atn(1))
'MsgBox T2
End Sub