怎么才能消除这种情况下的换行符。(在线)

采用增加的方式打开文件：  Open str_file For Append As #filewrite
然后有一些数据分批按顺充写入文件，具体程序为：function append_file(str as string)
  filewrite = freefile()
  open str_file for append as #filewrite
  print #filewrite,str
  close #filewrite
end if
其中文件为.txt文件，当每次调用这个函数时，写入之后就会自动加上一个换行符。如：
str1 = "aaaaaaaaaabbbbbbbbbb"
append_file mid(str1,1,10)
append_file mid(str1,11,10)则在文件中显示出来的是
aaaaaaaaaa
bbbbbbbbbb
我想把它们中间的这个换行符去掉有什么办法？我这的要求是：
1、不可能作一次性写入
2、每次写入的字符串中可能本身就包括有换行符，如：str1="aaa"+vbcrlf+"aaaaaaabbb"+vbcrlf+"bbbbbbb"
当我调用append_file mid(str1,1,12)
        append_file mid(str1,13,12)
我想在文件中得到的是：
aaa
aaaaaaabbb
bbbbbbb
而上面的函数得到的是
aaa
aaaaaaa
bbb
bbbbbbb