Public Function TitleCase(ByVal strIn As String)
Dim result As String = ""
Dim culture As New CultureInfo("en", False)
Dim tInfo As TextInfo = culture.TextInfo()
result = tInfo.ToTitleCase(strIn)
Return result
End Function
Если я введу "ТЕСТ" в функцию выше. Выход - "TEST". В идеале он выводит "Тест"
Я также пробовал фрагменты кода из этого сообщения безрезультатно: Использование ToTitleCase