Title Case in VB 1

[Faheem786]

Friends

Is there any function in vb which is used to Title Case a word? eg: "my name" or "MY NAME" should be displayed as "My Name".

I only know about lcase and ucase.

Pls help me in this.

Thanks in advance.

Faheem

 

[dsi]

I had to write my own:

Public Function TitleCase(sVal As String) As String
    Dim i As Long, sChar As String, bFlag As Boolean
    bFlag = False
    TitleCase = ""
    For i = 1 To Len(sVal)
        sChar = Left(sVal, 1)
        sVal = Right(sVal, Len(sVal) - 1)
        If i = 1 Or bFlag = True Then
            TitleCase = TitleCase & UCase(sChar)
            bFlag = False
        Else
            TitleCase = TitleCase & LCase(sChar)
        End If
        If sChar = " " Then bFlag = True
    Next i
End Function