Visual Basic 6 - Errore di calcolo

Salve, ho fatto un programma che misura i lati di un triangolo e dice se è equilatero, isoscele o scaleno. Ho creato quindi 3 textbox dove l'utente inserisce le dimensioni dei lati.
Però se inserisco nella prima textbox 4, nella seconda 5, e nella terza 4 dice che è equilatero. non so per quale motivo. Vi posto il codice:

'-------Dichiaro le varibili
    Dim A As Long
    Dim B As Long
    Dim C As Long
    Dim i As Integer
'-------Assegno il valore delle Textbox alle variblabili
    A = Val(txtLato1.Text)
    B = Val(txtLato2.Text)
    C = Val(txtLato3.Text)
'-------Eseguo i calcoli
    If A = (B And C) Then
        MsgBox "Triangolo equilatero", vbInformation
        txtLato1.Text = ""
        txtLato2.Text = ""
        txtLato3.Text = ""
    ElseIf (A <> B) And (A <> C) And (B <> C) Then
        MsgBox "Trinangolo scaleno", vbInformation
        txtLato1.Text = ""
        txtLato2.Text = ""
        txtLato3.Text = ""
    Else
        MsgBox "Trinagolo isoscele", vbInformation
        txtLato1.Text = ""
        txtLato2.Text = ""
        txtLato3.Text = ""
    End If

Help!

questo xk nel primo if fai l' and logico di 2 numeri
4 and 5=4 quindi ti dice che è equilatero
prova questo codice:

if a=b and a=c then 
 msgbox "equilatero"
elseif a<>b and a<>c and b<>a then
 msgbox "scaleno"
else
 msgbox "isoscile"
end if

poi pulisci tutte le textbox lo fai alla fine degli if e nn dentro così lo scrivi una volta sola

Si hai ragione, ora funziona perfettamente. Grazie