проверить существование треугольника, вывести длинну наибольшей из сторон VBA

[cutie_girl]

проверить существование треугольника, вывести длинну наибольшей из сторон.

к сожалению познания в vba минимальные. получилась вот такая вот функция, но она не работает : буду очень признательна за помощь.

 Public Function tr(a, b, с As Integer)
 Dim max As Integer
 ' a/b/c стороны треугольника
 ' max максимальная сторона
 If (a < b + c) Or (b < a + c) Or (c < a + b) Then
 If (a > b) And (a > c) Then
 max = "Треугольник существеует. с максимальной стороной" & a
 If (b > a) And (b > c) Then
 max = "Треугольник существеует. с максимальной стороной" & b
 Else
 max = "Треугольник существеует. с максимальной стороной" & с
 End If
 Else
 max = "Треугольник не существеует."
 End If
 tr = max
 End Function

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[IgorGO]

Public Function tr(a, b, с As Integer) as string
  ' a/b/c стороны треугольника
  ' max максимальная сторона
  If (a >= b + c) Or (b >= a + c) Or (c >= a + b) Then  
    tr = "с такими сторонами Треугольник не построить"    
  Else
    max = "Треугольник существеует. с максимальной стороной = "
    If (a >= b) And (a >= c) Then tr = max & a
    If (b >= a) And (b >= c) Then tr = max & b
    if (c>=a) and (c>=b) then tr = max & c
  End If
End Function

[cutie_girl]

Спасибо огромнейшее!!! Вы просто спасли!

[DiemonStar]

Public Function tr(a, b, с As Integer) as string
  max = IIf(a > b, IIF(a > c, a, c), IIF(b > c, b, c))
  tr = IIf(2*max >= a+b+c, "Это не треугольник", "Максимальная сторона треугольника = " & max)
End Function

можно и покороче...

[slan]

Сообщение от cutie_girl

Public Function tr(a, b, с As Integer)

объявление параметров предположительно неверное

наверняка имели ввиду все параметры целые(хотя почему целые?), а целым будет только последний - с. предыдущие типа вариант.

и лучше не экономить и объявлять сразу as long..