<%
Function Formata(frase)
Temp = Split(frase," ")
For i = LBound(Temp) to UBound(Temp)
FraseTemp = FraseTemp &" "& UCase(Left(Temp(i),1))&mid(Temp(i),2)
Next
Formata = FraseTemp
End Function
'Exemplo de Chamada da Função
Response.Write Formata("hneemias souza barbosa")
%>