Sub insertionsort()
 
Dim außenzähler As Integer
Dim zähler2 As Integer
Dim temp As Integer
Dim innenzähler As Integer
 
startZeit = Timer()
 
For außenzähler = 1 To länge
 
    temp = zahlen(außenzähler)
    zähler2 = 0
 
    Do
        zähler2 = zähler2 + 1
    Loop While zahlen(zähler2) < temp
 
    For innenzähler = außenzähler To zähler2 + 1
        zahlen(innenzähler) = zahlen(innenzähler - 1)
    Next innenzähler
 
zahlen(zähler2) = temp
 
Next außenzähler
 
endZeit = Timer
usfVergleich.labZeit.Caption = "Die Sortierung dauerte " & Round(endZeit - _
  startZeit, 4) & " Sekunden"
 
 
End Sub