Innanzitutto devi impostare a True la proprietà MultiLine della TextBox.
codice:
Open percorsofile For Input As #1

    Do Until EOF(1)
       Line Input #1, tx
       a = a & tx & chr(13)
    Loop
text1.text = a
Close #1
Prova questo e fammi sapere, l'ho scritto senza vb quindi ci saranno errori..

ciao