texte dans une list box ne s'affiche que sur une ligne

bonjour à tous
j'ai un souci avec ma list box
j'aimerais qu'elle affiche quand je fais une recherche la totalité du texte recherché mais cela n'est pas le cas
on dirait qu'elle n'affiche le texte recherché que sur une ligne du coup le texte affiché est tronqué !
voici le programme en vba :

Option Explicit

Dim Chaine As String * 700
Dim Longueur As Long

Sub CODE(cle As String)
Chaine = ""
Dim Repert As String
Dim Section As String
Dim defaut As String
Repert = Workbooks("jurisprudence.xls").Path & "\resultat.txt" 'Fichier texte
Section = "juris-resultat" 'la Section est représentée entre crochet dans le fichier texte
Longueur = GetPrivateProfileString(Section, cle, defaut, Chaine, Len(Chaine), Repert)
Listeresultat (Chaine) 'Appel de la fonction Listeresultat qui sépare chaque chaîne de caractères séparée par ";"
End Sub

Sub Listeresultat(resultat As String)
Dim i As Integer, j As Integer
Dim debut As Integer
jurisp.ListBox1.Clear
debut = 1
For i = 1 To Len(resultat)
If Mid(resultat, i, 1) = ";" Then
jurisp.ListBox1.AddItem Mid(resultat, debut, i - debut)
debut = i + 1
j = j + 1
End If
Next i
End Sub

merci pour votre aide