Witam
Czy ktoś mółby napisać co w tym kodzie jest nie tak? Sporo czasu się już z tym męcze. Program sortuje tablicę poprzez wstawianie:

Module Main
	Sub InsertionSort(ByRef tab())
		Dim i, j As Integer, n As Integer = tab.GetUpperBound(0), v
		For i = 1 To n
			j = i-1
			v = tab(i)
			While v < tab(j) And j > 0
				tab(j+1) = tab(j)
				j -= 1
			End While
			tab(j+1) = v
		Next
	End Sub
	Sub Main()
		Dim tab() = {12, 34, 45, 2, 1, 0, 57}, i As Integer
		InsertionSort(tab)
		For i = 0 to tab.GetUpperBound(0) : Console.Write(tab(i) & " ") : Next
		Console.ReadLine()
	End Sub
End Module