Imports System
Imports System.Globalization
Public Class Program
Public Shared Function toTitleCase(ByVal s As String) As String
Return CultureInfo.CurrentCulture.TextInfo.ToTitleCase(s.ToLower())
End Function
Public Shared Sub Main()
Dim s As String = "VB.NET is a multi-paradigm, object-oriented programming language"
s = toTitleCase(s)
Console.Write(s)
End Sub
End Class
' run:
'
' Vb.Net Is A Multi-Paradigm, Object-Oriented Programming Language
'