Explication de ce code

Merci de bien vouloir me donner une explication

Slt,

C'est soit un programmateur de déclenchement d'une bombe à neutron - soit un puissant malware de dernière génération - j'hésite encore (:>).

slt.

Je ne sais pas à quoi sert ce code, mais il y a quelque chose qui attire l'attention.
En effet, tu recherches une sous-chaîne dans une chaîne qui n'a pas été initialisée.
Conclusion: code pourri ;-)

voici le code en entier :

List2.Clear
List1.Clear
Text2.Text = ""

Dim s As String
Dim nbr_records As Long

s = Trim(Text1.Text)
If (s <> "") Then
i = 1
While (InStr(1, s, " ", vbTextCompare) <> 0)
m = Trim(Left(s, Val(InStr(1, s, " ", vbTextCompare))))
List1.AddItem m
s = Trim(Right(s, Len(s) - Len(m)))
i = i + 1
Wend
List1.AddItem s
Text2.Text = i
Data1.DatabaseName = "C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
Data1.RecordSource = "TITLES"
Data1.Refresh
Data1.Recordset.MoveLast
nbr_records = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
i = 1
Do While Not Data1.Recordset.EOF
j = 0
tit = Data1.Recordset!Title
While (j < List1.ListCount + 1)
If (InStr(1, tit, List1.List(j), vbTextCompare) <> 0) Then
If (j = List1.ListCount - 1) Then
List2.AddItem tit
End If
Else
GoTo 100
End If
j = j + 1
Wend

100:
P1.Value = CInt(i * (100 / nbr_records))
Data1.Recordset.MoveNext
i = i + 1
Loop

Else
MsgBox "Veuillez saisir au moins un mot clé"
End If

merci.

j'aimerais bien que quelqu'un m'explique ce code.
merci