[VB6] Lettura file e andare a capo ad ogni riga

[symonx80]

Ciao, come faccio a leggere un file e a mostrare a video i dati letti?
Vorrei ch ad ogni riga del mio file andasse a capo anche il testo mostrato a video ma il codice seguente che ho provato non mi da quello che cerco, cosa sbaglio?

Dim testo As String
    Open PathFile For Input As #3
'per ogni linea del file aggiorno la mia stringa finale 'testo'
    Do
        Line Input #3, linea
        testo = testo & vbCrLf & linea
    Loop Until EOF(3) = True
    Close #3
    TxtLog.Text = testo