[Resolvido]Retirar as preposições

Senhores,
O colega ahteixeira há algum tempo atrás postou aqui no grupo um código referente a uma função para Retornar apenas as Iniciais do Nome; pessoal este código foi de grande funcionalidade para a nossa comunidade. Além do código o colega deixou uma de sugestão de ajuste para não retornar as preposições do tipo: da, de, do, e, etc que deveria ser feita uma consulta neste grupo, porém não estamos obtendo nenhum sucesso nesta busca. Seria possível contar com a ajuda dos colegas?

Tópico movido por tratar-se de codificação, e não de formulário.

Por iniciais você se refere a primeira letra de cada nome ignorando preposições ou só o primeiro nome de um nome completo?

Olá Damasceno!
Refiro-me a primeira letra de cada nome ignorando preposições, exemplo:
Manoel Antonio da Silva -> MAS
Pedro de Farias dos Santos -> PFS

Código:

Public Function fncIniNome(strNome As String) As String

    Dim varNome
    Dim bytContador    As Byte
    Dim strResultado    As String
    Dim strPreposicoes  As String
   
    strPreposicoes = "da,de,do,das,dos"
   
'---------------------------------------------------------
   
    strPreposicoes = """" & Replace(strPreposicoes, ",", """,""") & """"
   
    varNome = Split(strNome, " ")
    For bytContador = 0 To UBound(varNome)
        If Eval("""" & varNome(bytContador) & """ not in (" & strPreposicoes & ")") Then
            strResultado = strResultado & Left(varNome(bytContador), 1)
        End If
    Next bytContador
   
    fncIniNome = strResultado

End Function

Muito obrigado!
Funcionou perfeitamente!

Falou dar o tópico por resolvido.

Aguardamos.

Muito obrigado!
Funcionou perfeitamente!

O fórum agradece o retorno. Sucesso.