Mam problem muszę zaprogramować sortowanie przez wstawianie z pętlami do loop until i niestety wywala mi błąd, proszę o pomoc
Sub Sortuj(ByRef tab() As Integer)
Dim i, j, k As Integer
Dim max As Integer = UBound(tab)
Do
k = tab(i)
j = i - 1
Do
If (k < tab(j)) Then
tab(j + 1) = tab(j)
j += 1
Else
Exit Do
End If
Loop Until (j >= 0)
tab(j + 1) = k
Loop Until i = max
End Sub
Wywala mi błąd w części If (k < tab(j)) Then