Loading external txt file

[Anthony]

So, I am trying to load an external txt file into a text box. Right now I have this code:

Code:

Dim iFileNum As Integer
Dim Data As String

iFileNum = FreeFile

Open App.Path & "\Data\notes.txt" For Input As #iFileNum

    Input #iFileNum, Data
        txtNotes.Text = Data + vbNewLine
Close #iFileNum

It works except it only loads whats on the first line of the txt file and won't load whats on lines 1, 2, 3, ect. Anybody know how to load the other lines as well?