有没有一种方法可以对数字列表进行排序，同时在VB.net中保持它们的原始索引？

' 创建一个包含数字和索引的元组
Dim numbers As List(Of Tuple(Of Integer, Integer)) = New List(Of Tuple(Of Integer, Integer))()

' 假设原始数字列表为：{5, 2, 8, 1, 9}
' 将数字和索引添加到元组列表中
For i As Integer = 0 To numbers.Count - 1
    numbers.Add(Tuple.Create(numbers(i), i))
Next

' 使用自定义的排序算法对元组列表进行排序
numbers.Sort(Function(x, y) x.Item1.CompareTo(y.Item1))

' 输出排序后的数字列表和原始索引
For Each number In numbers
    Console.WriteLine("数字：{0}，原始索引：{1}", number.Item1, number.Item2)
Next