'Consonne, Voyelle, Autre' Visual basic

Bonjour, je coince sur un exo, en visual basic. Le but est , que lorsque l'on rentre un caractaire, le programme doit nous dire si , le caractaire est une consonne, voyelle ou autre. Seulement il me dit tout le temps 'autre'

En voici la source:



Module Module1
Dim ent As String
Const con As String = "bcdfghjklmnpqrstvwxz"
Const voy As String = "aeiouy"

Sub Main()

Console.Write("entrer un caractaire : ")
ent = Console.Read()
If ent = con Then
Console.Write(ent & " est une consonne")
Else
If ent = voy Then
Console.Write(ent & " est une voyelle")
Else
Console.Write("autre caractaire")
End If

End If
Console.WriteLine("fin")
Console.ReadKey()
End Sub

End Module




Quelqu'un pourrai t-il m'aider??
merci