[Resolvido]Normalização/formatação de moradas

Bom dia,
Acredito que já tenha algo parecido no fórum, mas... acho que não custa nada perguntar...
Bem, meu "problema" é o seguinte, o meu sistema é usado por varias pessoas, e isso muda o modo da escrita, no caso é o seguinte:

O padrão que eu quero é o seguinte:  NomeDaRua, R/Av/Est
Ex: Diego Calado, R
.......^.........................^
Nome da rua   |    Tipo de logradouro

bem, espero que tenham entendido... Só mais um pequeno exemplo:

quero transformar isso:
Rua Diego Calado

Nisso:
Diego Calado, R

Olá Mário, veja pequeno exemplo se atende o pretendido:

Código:

Option Compare Database

'ahteixeira 2015 para MaximoAccess
Function fncAjustaArteria(strArteria As String) As String
   
    If Left(strArteria, 3) = "Rua" Then fncAjustaArteria = Right(strArteria, Len(strArteria) - 3) & ", R"
    If Left(strArteria, 7) = "Avenida" Then fncAjustaArteria = Right(strArteria, Len(strArteria) - 7) & ", Av"
   
    fncAjustaArteria = Trim(fncAjustaArteria)
    Debug.Print Trim(fncAjustaArteria)

End Function

Pode testar na janela imediate, conforme abaixo:


Se for o que pretende deverá melhorar o código e ajustar para os restantes tipos de artérias.

Abraço

Cara.... Perfeito vlw mesmo!

Olá Mário, obrigado pelo retorno.
Tomei a liberdade de ajustar o título do tópico de forma a ficar mais fácil a busca para outros utilizadores.
Abraço