Visual Basic help needed!

[More Booze]

Open "c:\stuff\content.txt" For Input As #1
   Do

        Input #1, texten
        If texten <> "" Then
            
            List1.AddItem texten
        End If
    Loop Until EOF(1)
    
Close #1

The problem is that each time the textline contains a comma "," it adds a new line to the listbox. I tried to fix it with this code.

texten = Replace(texten, Chr(44), "hahaha44")  <-- (special HTML chr for comma.)

But it doesn't work. How do I solve this?

[More Booze]

*bump*****

[SilverTab]

huh weird! I wonder why a coma is causing a new line??

BTW im not that familiar with vb but is:
Input #1, texten

the same as

Line Input #1, texten???

Line input should grab all the text untill it meets a linefeed...so coma shoulnt be a prob?... I dunno...

[More Booze]

Hey! I just changed it to
Line Input #1, texten
and it worked! Thanks! :-)

[SilverTab]

no prob


glad I could help ;)

[Myst]

Private Sub LoadContents(Lst As Object, sPath As String)
Dim iFN As Integer
Dim sEntry As String
Lst.Clear 'clear the list
iFN = FreeFile ' get a free filenumber
Open sPath For Input As iFN ' open the file
Do Until EOF(iFN) ' loop until end of file (EOF) reached
Line Input #iFN, sEntry ' get the next entry
Lst.AddItem sEntry ' add entry to the list
Loop
Close iFN ' close the file
End Sub