Private Sub Command1_Click()Dim a As Double,b As Double,c As DoubleDim p As Double,S As Doublea = InputBox("a?")b = InputBox("b?")c = InputBox("c?")If a >= b + c Or b >= a + c Or c >= a + b ThenMsgBox...