Primeira Letra Maiúscula

[kuroi]

use essa funcao:

Public Function PrimLetraMaiusc(v As String) As String
    Dim var() As String, i As Integer, r As String
    
    r = ""
    
    var = Split(v, " ")
    For i = LBound(var) To UBound(var)
        r = r & UCase(Left(var(i), 1)) & LCase(Mid(var(i), 2)) & IIf(i <> UBound(var), " ", "")
    Next
    PrimLetraMaiusc = r
End Function[/code]


se você chamar assim:
[code]MsgBox PrimLetraMaiusc("kURoI kuroi KUROI")

o resultado sera:

Kuroi Kuroi Kuroi

EDITADO: aiaiai descobri aqui q já tem uma funcao q faz isso ahhahaah é a StrConv (q serve pra otras coisas tb). a sintaxe é essa:

MsgBox StrConv("kURoI kuroi KUROI", vbProperCase)

Editado Agosto 26, 2008 por kuroi