Primeira Letra de Cada Palavra em Maiusculo

Outro dia um amigo me perguntou e então dei uma pesquisada e encontrei um código simples que faz isso … como estava em C# converti para VB.Net
 

‘Fonte Original em C# http://csharpaspnet.blogspot.com/2007/04/c-string-totitlecase-intial-letter.html

Public Shared Function ToTitleCase(ByVal inputString As String) As String

 

Dim cultureInfo As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture

Dim textInfo As System.Globalization.TextInfo = cultureInfo.TextInfo

 

Return textInfo.ToTitleCase(inputString.ToLower())

End Function