Вычисление обьема по одной из трех формул

[Jaty]

Пользователь вводит три числа(H, h, L) в TextBox'ы и затем выбирает по какой формуле производить расчет.
Вот три формулы:
1)V=H*h((h*3.14159)/4+L-h)
2)V=((h*h*3.14159)/4)*H
3)V=H*h*L
Помогите с кодом, у меня не работает.
Вот сам код

Private Sub CommandButton4_Click()
Dim h1 As Single, h2 As Single, L As Single
Dim V As Double
h1 = Val(TextBox1)
h2 = Val(TextBox2)
L = Val(TextBox3)
If OptionButton1.Caption Then
V = h1 * h2 * ((h2 * 3.14159) / 4 + L - h2)
Else
If OptionButton2.Caption Then
V = ((h2 * h2 * 3.14159) / 4) * h1
Else
If OptionButton3.Caption Then
V = h1 * h2 * L
Label1.Caption = Str(V)
End Sub

[doober]

Private Sub CommandButton4_Click()
Dim h1 As Single, h2 As Single, L As Single
Dim V As Double
h1 = Val(TextBox1)
h2 = Val(TextBox2)
L = Val(TextBox3)
If OptionButton1.Value Then
V = h1 * h2 * ((h2 * 3.14159) / 4 + L - h2)
ElseIf OptionButton2.Value Then
V = ((h2 * h2 * 3.14159) / 4) * h1
ElseIf OptionButton3.Value Then
V = h1 * h2 * L
End If
Label1.Caption = Str(V)
End Sub

[Jaty]

спасибо за помощь)))