سلام
طبق فرمولی که داده بودید ساختم !
فقط یک باتن بندازید رو فرم و کد زیر رو توش قرار بدید
Dim a As Integer, b As Integer, c As Integer
Form1.Cls
a = InputBox("1")
b = InputBox("2")
c = InputBox("3")
If (a + b < c) Or (a + c < b) Or (b + c < a) Then
Print "moosalas nist"
Else
Print "Moosalas Ast"
End If