.ToTitleCase 不适用于所有大写字符串

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 的使用 https://stackoverflow.com/questions/1716030/use-of-totitlecase

如果没记错的话标题大小写（） http://msdn.microsoft.com/en-us/library/system.globalization.textinfo.totitlecase.aspx似乎从来没有适用于所有大写字符串。它基本上要求您在处理之前将字符串转换为小写。

来自 MSDN：

一般来说，标题大小写将单词的第一个字符转换为 大写，其余字符小写。然而，这 方法当前不提供正确的大小写来转换单词 完全大写，例如缩写词。

解决方法用法（在 C# 中）：

string yourString = "TEST";

TextInfo formatter = new CultureInfo("en-US", false).TextInfo;    
formatter.ToTitleCase(yourString.ToLower());