VBA math triangle problem

programming
1

Hi all :). I faced up a problem. I have written this code, but it doesn’t work. No matter what values I enter it shows me that Such triangle doesn’t exist. The point is to create a program that shows the biggest side and tells us whether the triangle exists or not. I am new in VBA.

Sub example()
Dim Message, Title, Default, MyValue
Dim s(3)
max = 0 ' the biggest side
sum = 0 ' sum of all the sides
s2 = 0 ' sum of the other 2 sides
For i = 1 To 3
Message = "Enter value:"
Title = "Side Values"
Default = "0"
MyValue = InputBox(Message, Title, Default)
' we put MyValue into the array
s(i) = MyValue
' here we find which of the sides is the biggest
If (s(i) > max) Then
max = s(i)
End If
' we sum all the sides
sum = sum + s(i)
Next i
' we show the biggest one
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.TypeText Text:="The biggest side is: "
Selection.TypeText Text:=max
' We show the sum of all the sides
Selection.TypeParagraph
Selection.TypeText Text:="Sum of all the sides is: "
Selection.TypeText Text:=sum
' here we find the sum of the other 2 sides(not including the max)
s2 = sum - max
' we show the sum of the 2 sides
Selection.TypeParagraph
Selection.TypeText Text:="Sum of the two sides: "
Selection.TypeText Text:=s2
'Again we show the max just to be sure it is the same
Selection.TypeParagraph
Selection.TypeText Text:=max
' We check whether a triangle exists
' if it exists then its max side must be smaller than the sum of the other two
If (s2 > max) Then
' it exists
Selection.TypeParagraph
Selection.TypeText Text:="It exists such a triangle"
Else
' it doesn't exist
Selection.TypeParagraph
Selection.TypeText Text:="It doesn't exist"
End If
End Sub

Please help me :slight_smile: I was not able to find where the mistake is.