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