Private Function ConvertToTitlelCase(ByVal phrase As String) As String
Dim splittedPhrase() As String = phrase.Split(Microsoft.VisualBasic.ChrW(32), Microsoft.VisualBasic.ChrW(45), Microsoft.VisualBasic.ChrW(46))
Dim sb As var = New StringBuilder
For Each s As String In splittedPhrase
Dim splittedPhraseChars() As Char = s.ToCharArray
If (splittedPhraseChars.Length > 0) Then
splittedPhraseChars(0) = New String(splittedPhraseChars(0), 1).ToUpper.ToCharArray(0)
End If
sb.Append(New String(splittedPhraseChars))
Next
Return sb.ToString
End Function