Maiuscula()

Função que deixa somente as iniciais da string em maiúsculo.

Function maiuscula(str)
    MeuArray = Split(str," ")
    For i = LBound(MeuArray) To UBound(MeuArray)
        resultado = resultado & UCase(LEFT(MeuArray(i),1)) & LCase(RIGHT(MeuArray(i),Len(MeuArray(i))-1)) & " "
    Next
    maiuscula = resultado
End Function