Metodo burbuja en vb.net

Aqui esta el metodo burbuja en vb.net es un codigo clasico :) pero fue la peticion de un amigo.

si tienen alguna pregunta no olviden poner sus comentarios...

Module mBubbleSort

Sub Main()

''declaramos un array que contiene los elementos a ordenar.

Dim arNumber = New Integer() {5, 4, 2, 3, 1}

''una variable temporal que usaremos para hacer el intercambio entre dos elementos.

Dim temp As Integer = 0

''bucle for para recorrer cada elemento

For i As Integer = 0 To arNumber.Length - 1

''bucle for para hacer el intercambio entre un elemento y el siguiente

For j As Integer = 0 To arNumber.Length - 1

'desicion if para evitar que sigua recorriendo despues de haber
''terminado con el ultimo elemento existe otra forma mas eficiente
''pero esta fue la forma que me llego mas rapido a la cabeza.

If Not j = arNumber.Length - 1 Then

''desicion que siempre preguntara si el elemento recorrido actualmente es mayor que el elemento que sigue despues de este.

If arNumber(j) > arNumber(j + 1) Then

temp = arNumber(j)
arNumber(j) = arNumber(j + 1)
arNumber(j + 1) = temp
End If


End If

Next


Next


''finalmente un bucle for para recorrer los elementos y presentarlos
'' por consola.

For index As Integer = 0 To arNumber.Length - 1

Console.WriteLine(arNumber(index).ToString)

Next


Console.Read()
End Sub

End Module