Private Function ToTitleCase(ByVal value As String) As String

        'Culture Info Used here is English - United States (en -US)
        Dim textInfo As System.Globalization.TextInfo = New System.Globalization.CultureInfo("en-US", False).TextInfo

        Return textInfo.ToTitleCase(value)
End Function