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

        For LoopB = 0 to MaxIndex-1

        If lstNumbers(LoopB) > lstNumbers(LoopB+1) Then 'If the elements need to be switched then....

            Tmp = lstNumbers(LoopB+1) 'Place the second item into the variable Tmp so it's not lost

            lstnumbers(LoopB+1) = lstNumbers (LoopB) 'Place te first item into the second items spot

            lstNumbers(LoopB)= Tmp 'Copy the Tmp variable to the first item's sport. Data has been switched 

            End If 

            Console.Writeline("Loop A: " &LoopA)

            Console.Writeline("Loop B: :" &LoopB)

            For Each listItem As String In lstNumbers 

            Console.Writeline("New order: " & listItem )

        Next 

        Console.Writeline("")

    Next LoopB

Next LoopA

​

​

​

    End Sub

End Module