各位大虾，我编了一个小程序，但是无论怎么输入结果都是不对，显示的是“条件错误”。不知道是哪个语句错误，请帮忙，谢谢啦 。
程序如下：
Private Sub Command1_Click()
Dim a, b, c, p, s
a = Text1.Text
b = Text2.Text
c = Text3.Text
p = (a + b + c) / 2
If (a + b) > c And (b + c) > a And (c + a) > b Then
 s = Sqr(p * (p - a) * (p - b) * (p - c))
Label5.Caption = s
Else
Label5.Caption = "条件错误"
 End If
End Sub