Помогите решить задачу по программированию, в VBA

Помогите решить задачу по программированию, в VBA.
Пользователь вводит 3 числа, программа проверяет могут ли эти числа быть сторонами треугольника. Если "да" тогда вводится сообщение о типе такого треугольника.
Начало еще вроде понятно, о как определить тип треугольника не знаю..

Sub Треугольник()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("Введите длину первой стороны")
b = InputBox("Введите длину второй сторны")
c = InputBox("Введите длину третьей стороны")
If ((a + b > c) Or (a + c > b) Or (b + c > a)) Then

Else
MsgBox ("Данные числа не могут быть сторонами треугольника")
Еnd Sub

  • Ну? Все верно же. Сумма двух сторон треугольника не может быть меньше длины третьей. Осталось вывести сообщение.
    точно, жираф прав. Нужно чтобы ВСЕ условия выполнялись. Вместо OR нужно AND
  • И где же верно? Пусть по своему тексту проверит стороны 2, 3 и 7. Может быть такой треугольник или нет? А по поводу вида - смотри теорему косинусов. Оттуда все понятно. Тому, кто голову имеет.
  • Типы 3-уголников - это остро-, прямо- и тупоугольный по величине углов, равнобедренный и равносторонний по числу равных сторон. По числу равных сторон достаточно легко проверить условия, поскольку в задаче исходными данными являются стороны. Если все 3 стороны равны, то равносторонний, если только 2, то равнобедренный, если ни одна сторона не равна, то разносторонний.