Imports System
Imports System.Globalization
Public Class Test
Public Shared Sub Main()
Dim s As String = "vb.net programming"
Dim ti As TextInfo = new CultureInfo("en-US", false).TextInfo
s = ti.ToTitleCase(s)
Console.WriteLine(s)
End Sub
End Class
' Run
'
' Vb.Net Programming
'