Combining Text files

I have two text strings, one entered into a text box. the other from a txt file I want to add the text in the text box to the top of the text file.

I have read in all the in the information from the text file (from help files)

Do Until EOF(fileNumber)
NextLine = LineInput(fileNumber)
LinesFromFile = LinesFromFile & NextLine & Chr(13) & Chr(10) '
Loop

created a blank txt file
then written the information to it using:

Write(fileNumber, textboxString) ' add text from text box.
WriteLine(fileNumber)
Write(fileNumber, LinesFromFile)

this puts the text in the order i want but all the " are doubled and " is added to the ends etc.

I think I am going about this all wrong can you set me on the right path?

Thanks

Noot

Use PrintLine(filenumber, linetoprint) so that it doesn't repeat the quotes

Use PrintLine(filenumber, linetoprint) so that it doesn't repeat the quotes


fan bloody tastic