Sub CalculateTriangleAngles()
Dim a As Double, b As Double, c As Double
    Dim d As Double, e As Double, f As Double
a = Val(TextBox2.Text)
b = Val(TextBox4.Text)
c = Val(TextBox3.Text)
    d = WorksheetFunction.Degrees(WorksheetFunction.Acos((b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)))
    e = WorksheetFunction.Degrees(WorksheetFunction.Acos((a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c)))
    f = 180 - d - e ' Угол C
' Вывод результата
TextBox5.Text = d
TextBox7.Text = e
TextBox6.Text = f
End Sub