[VISUAL BASIC] pb de chaines

Salut ! petit exercice en vb... [VB6]

J'ai une chaîne initiale, que je veux éclater en deux chaînes, 1 chaine avec toutes les voyelles, et une autre avec toutes les consonnes. Mes voyelles sont stockées dans le tableau Tvoy.
J'ai déjà la partie concernant les voyelles (qui marche) , mais je n'arrive pas à trouver la partie Consonnes.
Est-ce que quelqu'un voit une solution ?
En vous remerciant.

'For i = 1 To longueurChaine
'
' pointeur = Mid(Chaine, i, 1)
'
' For j = 0 To 18
'
' If pointeur = Tvoy(j) Then
' ChaineVoyelles = ChaineVoyelles & pointeur
' End If
'
' Next
'
'Next