Imports System.Globalization
Public Module Example
Public Sub Main()
Dim str1 As String = "indigo"
Dim str2, str3 As String
str2 = str1.ToUpper(New CultureInfo("en-US", False))
str3 = str1.ToUpper(New CultureInfo("tr-TR", False))
Console.WriteLine(IIf(String.CompareOrdinal(str2, str3) = 0, "equal", "not equal"))
End Sub
End Module