VBA - определить стороны прямоугольного треугольника

задано 2 катета - найти гипотенузу
задан катет и гипотенуза - найти второй катет
гипотенуза не может быть меньше катета
предусмотреть:
гашение меток в поле ввода-выводы для несуществующего варианта;
переверка факта ввода числа, а не текста или 0.
Формат вывода результат - 2 знака после запятой.
запретить ввод значений в поле вывода результата.
клавише ЕНТЕР присв. функц. "выполнить", ЕСК=отменить

Польз. форме присвоить имя "ТЕСТПРОГ".

решение выглядит примерно так:
Private Sub CommandButton1_Click()

Dim A As Single ' 1 katet
Dim B As Single ' 2 katet
Dim C As Single ' gipotenuza

A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text

Function СторонаТреугольника (Optional A, Optional В, Optional С)
If Not (IsMissing(A)) And Not (IsMissing(В)) Then
СторонаТреугольника = Sqr(А^2 + В^2)
End If
If Not (IsMissing(A)) And Not (IsMissing(C)) Then
СторонаTреугольника = Sqr(С^2 – A^2)
End If
If Not (IsMissing(B)) And Not (IsMissing(C)) Then
Сторонатреугольника = Sqr (C^2 – B^2)
End If
EndFunction

TextBox4.Text = Сторонатреугольника

End Sub

помогите исправить ошибки,
этот код работает неправильно.