Can u please tell me how to make first letter capital and rest small in textbox

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

See this link :