【VB.NET】配列を独自の順序でソート（並べ替え）するには？

Imports System

Module CustomSortExample
    Sub Main()
        Dim words() As String = {"apple", "banana", "cherry", "date", "elderberry"}

        ' 文字列の長さでソート
        Array.Sort(words, AddressOf CompareStringLength)

        Console.WriteLine("文字列の長さでソートした結果:")
        For Each word In words
            Console.WriteLine($"{word} (長さ: {word.Length})")
        Next
    End Sub

    ' 文字列の長さを比較する関数
    Function CompareStringLength(x As String, y As String) As Integer
        Return x.Length.CompareTo(y.Length)
    End Function
End Module

Imports System

Module MultipleConditionSortExample
    Class Person
        Public Property Name As String
        Public Property Age As Integer

        Public Sub New(name As String, age As Integer)
            Me.Name = name
            Me.Age = age
        End Sub

        Public Overrides Function ToString() As String
            Return $"{Name} ({Age}歳)"
        End Function
    End Class

    Sub Main()
        Dim people() As Person = {
            New Person("田中", 30),
            New Person("佐藤", 25),
            New Person("鈴木", 30),
            New Person("高橋", 28)
        }

        ' 年齢の昇順、同じ年齢なら名前のアルファベット順でソート
        Array.Sort(people, AddressOf ComparePersons)

        Console.WriteLine("ソート結果:")
        For Each person In people
            Console.WriteLine(person)
        Next
    End Sub

    Function ComparePersons(x As Person, y As Person) As Integer
        ' まず年齢で比較
        Dim ageComparison As Integer = x.Age.CompareTo(y.Age)
        If ageComparison <> 0 Then
            Return ageComparison
        End If
        ' 年齢が同じ場合は名前で比較
        Return x.Name.CompareTo(y.Name)
    End Function
End Module