here is my code

Code:
Private Sub Command2_Click()

    Open "yob.dat" For Input As #1
    'Opens the file given by the user.
    
    Do Until EOF(1)
    'Does this loop until End Of File(EOF) for file number
        Line Input #1, Data
        'Read one line and puts it into the varible Data.
        picbox.Print Data
        'Adds the read line into Text1.
    Loop
    
    Close #1
    
End Sub
With the textbox It reads the data out of the file and puts it all in one line. I want it to put it in separate lines.