Lister un Fichier txt

Bonjour,

Lorsque que je lis un fichier txt , ligne par ligne et que sur une des ligne je rencontre une virgule,
Pourquoi j'ai un retour chariot,
Comment le supprimer, et conserver cette vigule dans la variable.
voilà le code donht je me sers

    Open App.Path & "\test.txt" For Input As #1
       While Not EOF(1)
            Input #1, Ligne
        Wend

par avance, merci

salut, essai ça

Dim Ligne as String
Open (App.Path & "\test.txt") for input as #1
Do
Line Input #1, Ligne
Text1.Text = Text1.Text & Ligne
Loop Until EOF(1)

ok