Hur gör jag en sträng med innehållet "apan äter kaka" till "Apan Äter Kaka"?

Finns ju en sån funktion i PHP, tycker det borde finnas nåt liknande för VB..

Jag har inte testat nedanstående, men det borde fungera.

<code>
Function UCaseFirst(ByVal sString As String) As String
Dim aTemp
Dim sTemp As String
Dim i As Long

aTemp = Split(sString, " ")
For i = LBound(aTemp) To UBound(aTemp)
sTemp = sTemp & UCase(Left(aTemp(i), 1)) & LCase(Right(aTemp(i), Len(aTemp(i)) - 1)) & " "
Next

UCaseFirst = sTemp
End Function
</code>

<code>
MsgBox UCaseFirst("apan äter kaka")
</code>

SvenPon eller någon annan har säkert ngt bättre förslag, men jag tror mitt fungerar ;)

Jupps det funkar utmärkt, tackar =)

kolla på strconv och vbpropercase

//Roger

<code>
MsgBox StrConv("apan äter kaka", vbProperCase)
</code>

Hehe, jag sa ju att det skulle komma bättre förslag.

Man lär sig något nytt varje dag. Tack för det :)

Edit:
Fast det exemplet som Henkoz visade ser lika knasigt ut oavsett om man kör min funktion eller om man använder StrConv. (man måste försvara sig lite)
Resultat av båda sätten:
<info>
Hej,jag Heter Henrik (kallas Även Henke)
Jag Är 20 År Ung.jag Jobbar Som ...
</info>

Det är underförstått att vbPropercase funkar mot tecken som föregås av (Space) mellanslag.
Vad skulle det annars vara för vits med denna metod ???