File I/O, And Textarea Crlf

I've have done numerous searches on the net and this site, but I can' seem to find a answer that fits right. The idea is, I am using a form/textarea to allow a user to imput html code. This gets saved on a file (User.txt)on the server; that works. The problem is, when I try to do the file output and read that file (User.txt) back into a form/textarea, it is impossible for me to do so without everyting staying on the same line.

this is the main output code (I used a do while loop):

If not objTextStream.AtEndOfStream Then
Do While not objTextStream.AtEndOfStream
strText = objTextStream.ReadLine
Response.Write strText & "<br>"
Loop
End If

I've also tried :

strText = replace(strText,vbcrlf,Chr(10))
Response.Write "<pre>" & server.htmlencode(strText) & "</pre>"
in the loop, none of which works.