Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If (a + b > c) And (b + c > a) And (a + c > b) Then
            Label3.Caption = "Получился"
            n = (a + b + c)
            h = n \ 2
            s = Sqr(h * (h - a) * (h - b) * (h - c))
            Label1.Caption = n
            Label2.Caption = s         
          Else
            Label3.Caption = "Не получился."
End Sub