加入回车加换行:Chr$(13) + Chr$(10),或者用 
Open ... For Append As #1
在文件后面追家,就不会覆盖了