VBA программирование Exel

Sub Çàäàíèå1()
a = InputBox("", "1 катет ")
b = InputBox("", "гипотенуза ")
MsgBox ("катет 2 " & Sqr(b ^ 2 - a ^ 2))
MsgBox ("S " & (1 / 2) * a * b * Sin(0.5 * 3.14159))
MsgBox ("P " & a + b + c)
End Sub
помогите переделать формулу, чтоб периметр находился