<% Function PrimeiraLetraMaiuscula(ByVal texto)
    Dim palavras, i, palavra, excecoes, resultado

    ' Lista de palavras que devem permanecer em minúsculas
    excecoes = Array("da", "de", "di", "do", "du")
    
    ' Dividir o texto em palavras
    palavras = Split(LCase(texto), " ")
    
    ' Inicializar a variável de resultado
    resultado = ""
    
    ' Iterar por cada palavra no texto
    For i = 0 To UBound(palavras)
        palavra = palavras(i)
        
        ' Verificar se a palavra está na lista de exceções
        If InStr(1, Join(excecoes, " "), palavra) > 0 Then
            resultado = resultado & palavra
        Else
            ' Converter a primeira letra para maiúscula e o restante para minúsculas
            resultado = resultado & UCase(Left(palavra, 1)) & Mid(palavra, 2)
        End If
        
        ' Adicionar um espaço entre as palavras (exceto no final)
        If i < UBound(palavras) Then
            resultado = resultado & " "
        End If
    Next

    ' Retornar o resultado
    PrimeiraLetraMaiuscula = resultado
End Function

%>