Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z. - VBA

Формулировка задачи:

Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z.

Private Sub CommandButton1_Click()
x = InputBox("x")
y = InputBox("y")
Z = InputBox("z")
p = x + y + Z
If x < p / 2 And y < p / 2 And Z < p / 2 Then
  If x >= y And x >= Z Then
    MsgBox "max ugol mejdu y i z"
  ElseIf y >= x And y >= Z Then
    MsgBox "max ugol mejdu x i z"
  Else
    MsgBox "max ugol mejdu x i y"
  End If
Else
  MsgBox "net"
End If
End Sub

помогите доделать ))

Решение задачи: «Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z.»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer, z As Integer
x = InputBox("x")
y = InputBox("y")
z = InputBox("z")
If x + y > z And z + x > y And z + y > x Then
MsgBox "Существует"
Else
MsgBox "Не существует"
End If
End Sub
                        