Даны три длины отрезков. Составить алгоритм и код программы

Алгоритм:
Программа:
Module Module1
Sub Main()
Dim a, b, c As Single
a = InputBox("Введите длину первого отрезка")
b = InputBox("Введите длину второго отрезка")
c = InputBox("Введите длину третьего отрезка")
If a + b <= c Or a + c <= b Or b + c <= a Then
MsgBox("No")
Else
MsgBox("Yes")
End If
End Sub
End Module