[Resolvido]Somente Iniciais do nome

Bom dia a todos do forum, estou necessitando da ajuda dos amigos para resolver um problema, tenhho um campo no meu formulário nome na minha tabela.
por exemplo Nome: José Henrique Araújo do Santos, preciso fazer uma pesquisa que busque e retorne somente as inicias de cada nome, tem jeito?

Obrigada Amandaalves

Olá Amanda, veja se atende o pretendido:

Código:

Sub Iniciais()
Dim x As Integer
Dim strTemp, strIniciais As String

    strTemp = "José Henrique Araújo do Santos"
    strIniciais = Mid(strTemp, 1, 1)

    For x = 1 To Len(strTemp)
        If Mid(strTemp, x, 1) = " " Then
            strIniciais = strIniciais & Mid(strTemp, x + 1, 1)
        End If
    Next
    
    MsgBox strIniciais
 
 End Sub

Nota, caso não pretenda que considere de, da , e , dos,... procure aqui no forum para retirar as preposições.
Abraço

Olá Amanda,
Adaptei para função, veja exemplo no report.
Abraço

Boa tarde a todos
Olá amigo ahteixeira, era isso mesmo muito obrigada.
Atenciosamente Amandaalves

Olá Amanda, ainda bem que foi util e resolveu
Obrigado pelo retorno, os utilizadores do forum agradecem.
Abraço