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
Arquitetura e Desenvolvimento de Software 