Dim Phrase As String = "this is a test"
Dim TextArray As String() = Nothing
Dim Word As String
Dim NewString As String
TextArray = Phrase.Split(" ")
For Each Word In TextArray
NewString = NewString & (Word.Substring(0, 1).ToUpper() & Word.Substring(1, Word.Length
- 1).ToLower() & " ")
Next Word
Or
See this link :
http://msdn.microsoft.com/en-us/library/aa332127.aspx Last edited by Jx_Man; Feb 21st, 2009 at 10:54 am.
Reputation Points: 1182
Solved Threads: 392
Posting Sensei
Offline 3,140 posts
since Nov 2007
Unsolved 
