• Home
 · 
• String Manipulation
 · 
• Function to capitalize all words in a string.

Function to capitalize all words in a string.

Function to capitalize all words in a string.

Rate Function to capitalize all words in a string.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Call like this :
' Text2.Text = Capem(Text1.Text)

    Dim PosSpc As Long
    
    Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1))
    PosSpc = InStr(MyString, " ")
    
    Do While PosSpc <> 0
        Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1))
        PosSpc = InStr(PosSpc + 1, MyString, " ")
    Loop
    
    Capem = MyString

End Function