Imports System

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        Dim lstNumbers as New List(Of String)()

        lstNumbers.Add("One")

        lstNumbers.Add("Two")

        lstNumbers.Add("Three")

        lstNumbers.Add("Four")

        lstNumbers.Add("Five")

        Dim MaxIndex = lstNumbers.Count-1

        Dim Tmp as String

            For LoopA = 0 to MaxIndex-1

                For LoopB = 0 to MaxIndex-1

                    If lstNumbers(LoopB) > lstNumbers(LoopB+1) Then

                        Tmp = lstNumbers(LoopB+1)

                        lstNumbers(LoopB+1) = lstNumbers(LoopB)

                        lstNumbers(LoopB) = Tmp

                    End If

                Next LoopB

            Next LoopA

​

    For Each listItem As String In lstNumbers

    Console.WriteLine("New Order: " & listItem )

    Next

​

    End Sub

​

End Module