Определить, является ли треугольник равнобедренным, равносторонним или разносторонним

dim a as integer
dim b as integer
dim c as integer
'Проверка равнобедренного'
if a=b or a=c or b=c then
msgbox ("Равнобедренный")
else
msgbox ("Не равнобедренный")
End if
'Проверка равностороннего'
if a=b=с then
msgbox ("Равносторонний")
else
msgbox ("Не равносторонний")
End if
'Проверка разностороннего'
if a<>b and a<>c and b<>c then
msgbox ("Разносторонний")
else
msgbox ("Не разносторонний")
end if

dim a as integer
dim b as integer
dim c as integer
if a=b=с then
msgbox ("Равносторонний")
else
if a=b or a=c or b=c then
msgbox ("Равнобедренный")
else
if a<>b and a<>c and b<>c then
msgbox ("Разносторонний")
end if
end if
end if

Private a, b, c As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = b and b = c Then
Label4.Caption = "Равносторонний"
Else
If a <> b and b <> c and a <> c Then
Label4.Caption = "Разносторонний"
Else
Label4.Caption = "Равнобедренный"
End If
End If

Private Sub Command1_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  c = Val(Text3.Text)
  Label4.Caption = Array("Разносторонний", "Равнобедренный", , "Равносторонний")(-(a = b) - (b = c) - (a = c))
End Sub