如何让黑块变成换行？

Question

大家好，我用
strURL="http://www.sina.com.cn"
Open "f:\测试.html" For Output As #1
myTmp = Inet1.OpenURL(strURL)
Print #1, myTmp
Close #1得到的“测试.html”文件用记事本打开，原先的换行都变成了黑块，我想用程序分析此文件，一行一行地读入、分析。现在问题就是整个文件就是一行。请问如何让黑块变成换行？以便我一行一行地分析。

Answer 1

NewsBar——国内最老牌的网络冲浪赚钱工具！无投资、无风险、高信誉！每月16~30日准时付款！不影响您上网打牌、聊天、玩游戏！绝对的额外收入！点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?flon
新年期间，每天的前200个通过本连接免费加入的会员，可以立刻赠送88个新闻点！（快！今天还有49个名额。）
提醒：现在出现一些仿冒NewsBar的网站，请注意鉴别！ 

Answer 2

先要弄明白一点
文本文件并不是根据回车符换行的
而是用 回车符+换行符 换行的
每次在文本框中按回车键实际上是生成了 回车符+换行符有些文本编辑器支持换行符换行（Unix系统的习惯）
远程通信一般是用回车符换行（如HTTP协议）所以要考虑所有情况假设str变量已经读取了文本数据：
str = Replace(str, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符，防止误操作
str = Replace(str, vbCr, vbLf) '将 回车符 替换成 换行符
str = Replace(str, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符
'输出 str

Answer 3

strURL="http://www.sina.com.cn"
myTmp = Inet1.OpenURL(strURL)myTmp = Replace(myTmp, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符，防止误操作
myTmp = Replace(myTmp, vbCr, vbLf) '将 回车符 替换成 换行符
myTmp = Replace(myTmp, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符Open "f:\测试.html" For Output As #1
Print #1, myTmp
Close #1