Loading a Txt File into a Text Area?

f=readfile("The file.txt")

while not eof(f)
r$=readline(f)
addTextAreaText(my_text_area,r)
wend

closefile f