Imports System.Collections Imports System.Collections.Generic Imports System.Globalization Module Example Public Sub Main() Dim strings() As String = { "a","B","c","D" } Dim current(strings.Length - 1) As String strings.CopyTo(current, 0) Array.Sort(current, StringComparer.CurrentCulture) End Sub End Module