VB Snippet - Capatalize first Letter in all words in string

[James Stanich]

Function UpAllWords(ByVal TEXTIN As String) As String
 
Dim TextinS() As String
 
Dim Letter As String
 
Dim FinalWord As String
 
Dim MyItem As Integer
 
Dim c As Integer
 
TextinS = Split(TEXTIN, " ")
 
MyItem = UBound(TextinS)
 
For c = 0 To MyItem
 
     Letter = Left(TextinS(c), 1)
 
     Letter = UCase(Letter)
 
     FinalWord = (Right(Letter, 1)) & Mid(TextinS(c), 2)
     
     TextinS(c) = FinalWord
 
     If UBound(TextinS) = c Then
          
          UpAllWords = UpAllWords & TextinS(c)
     
     Else
    
          UpAllWords = UpAllWords & TextinS(c) & " "
     
     End If
 
Next c
 
End Function