Function AngleC(Bangle, b, C)
    AngleC = Application.Asin((C * Math.Sin(Bangle)) / b) 'Вычисление угла C
End Function

Function AngleA(b, C)
    AngleA = WorksheetFunction.Pi - (b + C) 'Вычисление угла А
End Function

Function Astrih(b, Cs)
    Astrih = WorksheetFunction.Pi - (b + Cs)
End Function

Function Sidea(A, Bangle, b)
    Sidea = ((b * (Math.Sin(A)) / Math.Sin(Bangle))) 'Вычисление стороны а
End Function

Function Areas(A, C, b)
    Areas = ((A * C * Math.Sin(b)) / 2) 'Вычисление площади т-ка
End Function

Function Cshtrih(C)
    Cshtrih = WorksheetFunction.Pi - C
End Function

Function AmaloeShtrih(b, Astrih, Bangle)
    AmaloeShtrih = (b * Math.Sin(Astrih)) / Math.Sin(Bangle)
End Function

Function Sshtrih(AmaloeShtrih, Cmaloe, Bangle)
    Sshtrih = (AmaloeShtrih * Cmaloe * Math.Sin(Bangle)) / 2
End Function

Sub Rezult() 'Процедура для вывода результатов
    Dim A, b, C, AngleB, AngleC, AngleA, S As Single
    Const Pi = 3.14
    b = 2: C = 2.5: AngleB = WorksheetFunction.Pi / 4
    AngleC = Application.Asin((C * Sin(AngleB)) / b)
    MsgBox ("AngleC= " & AngleC) 'Вывод угла С во всплывающем окне
    AngleA = Pi - (AngleB + AngleC)
    MsgBox ("AngleA= " & AngleA) 'Вывод угла А во всплывающем окне
    A = ((b * Sin(AngleA)) / Sin(AngleB))
    MsgBox ("side a= " & A) 'Вывод стороны а во всплывающем окне

    S = ((A * C * Sin(AngleB)) / 2)
    MsgBox ("S= " & S) 'Вывод площади во сплывающем окне

    MsgBox ("AngleC in degrees= " & (AngleC * 180) / 3.141) 'Вывод угла С в градусах
    MsgBox ("AngleA in degrees= " & (AngleA * 180) / 3.141) 'Вывод угла A в градусах
End Sub