Forklaring på nogle liniers VBA kode debug.print, indlæsning etc.

Jeg har her en indsættelsessortering sorteringsdelen(den jeg rykker ind) har jeg styr på. Men kan jeg få nogle kommentarer til hver linie om hvad de betyder sådan helt grunlæggende bare kort. Såsom: Dim i, j As Long/ sætter XX antal byte af til heltal. Eller noget i den stil.

TAKKER

Option Compare Database
Option Explicit
Global filnr As Integer

Public Sub assembsort()

Dim i, j As Long
Dim elem As Long
Dim min As Long
Dim tid1 As Double
Dim tid2 As Double
Dim iMin As Long
Const N = 800
Dim tal(N)
For i = LBound(tal) To UBound(tal)
tal(i) = Rnd * N * 9
Next i
filnr = FreeFile
Open "p:\assemb.txt" For Output As filnr
Print #filnr, "tal der kommer ind"
Print #filnr, "--------------------------------------------------------------------------"
Print #filnr, "";
For i = LBound(tal) To UBound(tal)
Print #filnr, Right(Format(i, "  ###0"), 5);
Next i
Print #filnr,
Print #filnr, " -----------------------------------------------------------------------"
Call udfil(tal)
        i = 0
        Do 'løk1
        tid1 = Timer
        'Debug.Print "start:", tid1; "sekunder"
        min = tal(i)
        iMin = i

        j = i + 1
        Do 'løk2
        'løk 3
        If tal(j) < min Then
        min = tal(j)
        iMin = j
        End If '--luk 3
        j = j + 1

        Loop Until j > N '--luk2

        tal(iMin) = tal(i)
        tal(i) = min

        i = i + 1
        Loop Until i >= N
        '-- luk 1
Print #filnr, "sorteringsresultat"
Print #filnr, "--------------------------------------------------------------------------"
Print #filnr, "";
For i = LBound(tal) To UBound(tal)
Print #filnr, Right(Format(i, "  ###0"), 5);
Next i
Print #filnr,
Print #filnr, " -----------------------------------------------------------------------"
Call udfil(tal)
For i = 0 To N
Debug.Print tal(i)
Next i
Close #filnr
tid2 = Timer
Debug.Print "slut:", tid2; "sekunder", tid2 - tid1; "sekunder"
End Sub

Public Sub udfil(ByRef data())

Dim i As Integer
Dim elem As Variant

i = 0
For Each elem In data
Print #filnr, Right("    " & Format(elem, "####0"), 5);

Next elem
Print #filnr,

End Sub