Imports System.Collections.Generic
Dim lstNumbers as New List(Of String)()
Dim MaxIndex = lstNumbers.COunt-1
For LoopA = 0 to MAxINdex
For LoopB = 0 to MaxIndex-1
If lstNumbers(LoopB) > lstNumbers(LoopB+1) Then
Tmp = lstNumbers(LoopB+1)
lstnumbers(LoopB+1) = lstNumbers (LoopB)
Console.Writeline("Loop A: " &LoopA)
Console.Writeline("Loop B: :" &LoopB)
For Each listItem As String In lstNumbers
Console.Writeline("New order: " & listItem )