Explication de lignes de codes

Bonjour,
Voila je suis en bts informatique de gestion et j'ai un oral sur mon projet mercredi et je voudrais savoir si quelqu'un pouvais expliquer mon code car le code que j'ai adapté dans mon projet je l'ai copier sur internet et du coup je ne c'est pas tout ce qui veux dire!

Voici mon code :

Private Sub Commande30_Click()

Dim bd As Database
Dim rst As Recordset
Dim rs As Recordset
Dim ligne As String
Dim ligne1 As String
Dim Longueur As Long
Dim Chaine As String

Set bd = OpenDatabase("SaisieSalariés.mdb")
Set rst = bd.OpenRecordset("Salariés")
Set rs = bd.OpenRecordset("liste des agences")

If Not (rst.EOF And rst.BOF) Then

'Open "\\samba\commun\MajReg\envoimaj\TableSalaries.txt" For Binary As #1
rst.MoveLast
rst.MoveFirst

Set fs = CreateObject("Scripting.filesystemobject")
fs.deletefile ("\\samba\commun\MajReg\envoimaj\TableSalaries.txt")
Set fichier = fs.createtextfile("\\samba\commun\MajReg\envoimaj\TableSalaries.txt", 2, -2)

Do While Not rst.EOF
Chaine = Trim(rst("Code collaborateur").Value)
Longueur = Len(Chaine)
If (Longueur > 0) Then
ligne = rst("Code collaborateur") & ";" & _
rst("No salarie") & ";" & _
rst("Nom") & ";" & _
rst("Prénom") & ";" & _
rst("Fonction") & ";" & _
rst("Fonction 2") & ";" & _
rst("Nom Société") & ";" & _
rst("Site") & ";" & _
rst("Service/secteur") & ";" & _
rst("Tél Prof") & ";" & _
rst("Tel Fax") & ";" & _
rst("No Port") & ";" & _
rst("E-mail") & ";" & _
rst("Direction")
'Call EcritLigne(1, ligne)
End If
rst.MoveNext
Loop
End If

If Not (rs.EOF And rs.BOF) Then

'Open "\\samba\commun\MajReg\envoimaj\TableAgence.txt" For Binary As #2
Set fs = CreateObject("Scripting.filesystemobject")
fs.deletefile ("\\samba\commun\MajReg\envoimaj\TableAgence.txt")
Set fichier = fs.createtextfile("\\samba\commun\MajReg\envoimaj\TableAgence.txt", 2, -2)

rs.MoveFirst
Do While Not rs.EOF
ligne1 = rs("Nom Bureau") & ";" & rs("No téléphone") & ";" & rs("No Fax") & ";" & rs("Adresse 1") & ";" & rs("code postal") & ";" & rs("Ville")
fichier.writeline (ligne1)
'Call EcritLigne1(2, ligne1)
rs.MoveNext
Loop
'Close #2
Else
'pas d'enregistrements
End If
fichier.Close
Set rst = Nothing
Set bd = Nothing
End Sub
Public Function EcritLigne(nfich As Integer, ligne As String)
Dim count&
Dim a$

count& = Len(ligne)
For i& = 0 To count&
Next i&
a$ = Chr(13) + Chr(10)
Put #nfich, , ligne
Put #nfich, , a$

End Function

Public Function EcritLigne1(nfich1 As Integer, ligne1 As String)
Dim count&
Dim a$

count& = Len(ligne1)
For i& = 0 To count&
Next i&
a$ = Chr(13) + Chr(10)
Put #nfich1, , ligne1
Put #nfich1, , a$

End Function

Voila ceux qui veulent peuvent expliquer mon code car il y a des choses que je ne comprend pas trop comme par exemple les 2 fonctions "EcritLigne" et "EcritLigne1"!

Merci d'avance a ceux qui prendront le temps de lire et de me répondre!