Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Oct 8th, 2003 05:36 AM Post subject: Capatalize first Letter in all words in string |
 |
|
| Code: | 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 |
|
|
