[Resolvido]Extrair 2 primeiras consoantes de um Nome Proprio

Olá Pessoal

Sou um iniciante, e gostava de extrair as 2 primeiras consoantes de um campo=Nome próprio num formulário.

Se alguém pudesse ajudar ficava muito agradecido

Obrigada

Caro Avelino Sampaio

Obrigada pelo V/ resposta, mas desculpe se me está a falhar alguma coisa, mas dá-me e a declaração da constante "Public Const l = "bcdfghjklmnpqrstwvyxz"" dá-me erro.

Se me puderem ajudar, ficaria muito agradecido.

Um muito Obrigada. Consegui

Caros Amigos

Na sequência do anterior tenho o seguinte:

"
Private Sub AbrevNomeproprio_BeforeUpdate(Cancel As Integer)
Function fncExtrairConsoante(strNome As String) As String
Dim z%, letra$, seq$
Dim a As Byte
For a = 1 To Len(strNome)
letra = Mid(strNome, a, 1)
Select Case InStr("aAáÁãÃàÀâÂeEéÉèÈêÊiIíÍìÌîÎoOóÓòÒõÕôÔuUúÚùÙûÛ", letra)
Case Is > 0
seq = seq & letra
k = k + 1
If k = 2 Then
fncExtrairConsoante = LCase(seq)
Exit For
End If
If k = a Then fncExtrairConsoante = LCase(seq)
End Select
Next
End Function
"

Agora, precissava de alterar as consoantes com acentos para sem acentos

Obrigada