Как вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов

Sub CalcTriangle()
    Const dx = 100, dy = 100, px_in_cm = 40
    Dim i As Long, t As String, a As Double, b As Double
    Dim a_cm As Double, b_cm As Double, c_cm As Double
    Dim p As Double, s As Double
    'Ââîä èñõîäíûõ äàííûõ.
    While a_cm < 1 Or a_cm > 15
        a_cm = InputBox("Çàäàéòå äëèíó êàòåòà a (â ñàíòèìåòðàõ):", "a", 3)
        If a_cm < 1 Then MsgBox "Ìèíèìàëüíàÿ äëèíà êàòåòà - 1 ñì."
        If a_cm > 15 Then MsgBox "Ìàêñèìàëüíàÿ äëèíà êàòåòà - 15 ñì."
    Wend
    While b_cm < 1 Or b_cm > 15
        b_cm = InputBox("Çàäàéòå äëèíó êàòåòà b (â ñàíòèìåòðàõ):", "b", 4)
        If b_cm < 1 Then MsgBox "Ìèíèìàëüíàÿ äëèíà êàòåòà - 1 ñì."
        If b_cm > 15 Then MsgBox "Ìàêñèìàëüíàÿ äëèíà êàòåòà - 15 ñì."
    Wend
    'Âû÷èñëåíèå ðàçìåðîâ òðåóãîëüíèêà â ïèêñåëàõ, à òàêæå äëèíû ãèïîòåíóçû.
    a = a_cm * px_in_cm
    b = b_cm * px_in_cm
    c_cm = Sqr(a_cm * a_cm + b_cm * b_cm)
    'Ðèñîâàíèå.
    Application.ScreenUpdating = False
    With ActiveSheet.Shapes
        'Î÷èñòêà ëèñòà îò ðàíåå íàðèñîâàííûõ ôèãóð.
        For i = .Count To 1 Step -1
            .Item(i).Delete
        Next i
        'Òðåóãîëüíèê.
        .AddShape msoShapeRightTriangle, dx, dy, b, a
        'Íàäïèñü äëÿ êàòåòà a.
        With .AddLabel(msoTextOrientationVertical, dx - 25, dy + a - 100, 20, 80)
            .Line.Visible = False
            .TextFrame.VerticalAlignment = xlVAlignCenter
            With .TextFrame2.TextRange
                .Text = "a  -  " & a_cm & "  ñì."
                .Font.Size = 14
            End With
        End With
        'Íàäïèñü äëÿ êàòåòà b.
        With .AddLabel(msoTextOrientationHorizontal, dx + 20, dy + a + 5, 80, 20)
            .Line.Visible = False
            .TextFrame.VerticalAlignment = xlVAlignCenter
            .TextFrame.HorizontalAlignment = xlHAlignRight
            With .TextFrame2.TextRange
                .Text = "b - " & b_cm & " ñì."
                .Font.Size = 14
            End With
        End With
        'Íàäïèñü äëÿ ãèïîòåíóçû.
        t = IIf(c_cm - Int(c_cm) < 0.000000001, c_cm, Format(c_cm, "0.00"))
        With .AddLabel(msoTextOrientationHorizontal, dx + b / 2 + 5, dy + a / 2 - 25, b / 2, 20)
            .Line.Visible = False
            With .TextFrame2.TextRange
                .Text = "c - " & t & " ñì."
                .Font.Size = 14
            End With
        End With
        'Èêîíêè ïåðèìåòðà è ïëîùàäè.
        .AddLine(dx + b, dy + a / 4, dx + a / 4 + b, dy + a / 4).Line.Weight = 2
        .AddShape msoShapeRectangle, dx + b, dy + a / 2, a / 4, a / 4
        'Íàäïèñü äëÿ ïåðèìåòðà.
        p = a_cm + b_cm + c_cm
        t = IIf(p - Int(p) < 0.000000001, p, Format(p, "0.00"))
        With .AddLabel(msoTextOrientationHorizontal, dx + a / 4 + b + 5, dy + a / 4 - 10, 500, 20)
            .Line.Visible = False
            .TextFrame.VerticalAlignment = xlVAlignCenter
            With .TextFrame2.TextRange
                .Text = "Ïåðèìåòð - " & t & " ñì."
                .Font.Size = 14
            End With
        End With
        'Íàäïèñü äëÿ ïëîùàäè.
        s = a_cm * b_cm / 2
        t = IIf(s - Int(s) < 0.000000001, s, Format(s, "0.00"))
        With .AddLabel(msoTextOrientationHorizontal, dx + a / 4 + b + 5, dy + 5 * a / 8 - 10, 500, 20)
            .Line.Visible = False
            .TextFrame.VerticalAlignment = xlVAlignCenter
            With .TextFrame2.TextRange
                .Text = "Ïëîùàäü - " & t & " êâ. ñì."
                .Font.Size = 14
            End With
        End With
    End With
    Application.ScreenUpdating = True
End Sub