Sub Zadacha()

    Dim a As Single
    Dim b As Single
    Dim c As Single
      
    a = InputBox("Введите координаты a")
    b = InputBox("Введите координаты b")
    c = InputBox("Введите координаты c")
      
    If (a <> 0) And (b <> 0) And (c <> 0) Then
      If (a < b + c) And (b < a + c) And (c < a + b) Then
        If ((a + b + c) / 3) = a Then
          MsgBox "ABC - Равносторонний треугольник"
        Else
          If (a = b) Or (b = c) Or (a = c) Then
            MsgBox "ABC - Равнобедренный треугольник"
          Else
            MsgBox "ABC - Треугольник общего вида"
          End If
        End If
      Else
        MsgBox "ABC - Заданные параметры не соответствуют правилам построения треугольника"
      End If
    Else
      MsgBox "Одна или несколько сторон не может быть равно 0"
    End If

End Sub