indlæse teksten fra en *.txt fil og ligge den hen i en textbox

Jeg har flere gange prøvet at få indlæst teksten fra en *.txt fil hen i en textbox. Det lykkes kun delvist, for den tager kun den øverste linie med. Er der derfor nogen der ved hvordan man kan få hele teksten fra en *.txt fil hen i en textbox?

Min kode ser således ud:
Dim x As String
On Error GoTo fejl
Open \"c:\\jesper.txt\" For Input As #1
Line Input #1, x
Close #1 \'lukker filen
Text1.Text = x
Exit Sub
fejl:
end sub