Public Class MainClass Public Shared Function ProperCase(ByVal Text As String) As String Dim objCulture As New System.Globalization.CultureInfo("en-US")
Return objCulture.TextInfo.ToTitleCase(Text.ToLower) End Function
Public Shared Sub Main
System.Console.WriteLine(ProperCase("this Is a Test")) End Sub End Class