Sprawdzanie warunków

Zbeszczeszczę to dziewicze forum: Jak poprawnie napisać warunki sprawdzające rodzaj trójkąta?

Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
Dim S As Double
Dim dokladnosc As Integer
Dim dok As String
Dim Sqrt As Double
a = HScrollBar1.Value
b = HScrollBar2.Value
c = HScrollBar3.Value
dokladnosc = HScrollBar4.Value
dok = "N" & CStr(dokladnosc)
If (a + b > c) And (b + c > a) And (c + a > b) Then
p = (a + b + c) / 2
S = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
TextBox5.Text = S.ToString(dok)
Else
      MessageBox.Show("Nie można zbudować trójkąta! Wprowadź dane jeszcze raz", "Informacja")
End If
If (a * a) + (b * b) And (c * c) Then
      MessageBox.Show("Trójkat jest prostokątny", "Informacja")
End If
If (a = b) And (a = c) And (b = c) Then
      MessageBox.Show("Trójkat jest równoboczny", "Informacja")
End If