quick way to read in a text file.

[nswan]

Hi,

i'm reading in a text file in the following way:

dim sr as streamreader
sr = file.opentext(filename)
dim x as string
while sr.peek <> -1
    x = trim(sr.Readline()) & vbcrlf
    txtFile.text = txtFile.text & x
end while
sr.close()

Problem is it seems this way of reading file is sometimes quite slow? Is there a quicker way to read in a text file?

Many thanks
Nick