把那个文本文件文字读入到一个字符串中，插入那行数值到这个字符串的第二行，再把这个新的字符串置换那个文本文件。
Open App.Path & "/ip本机记录.txt" For Output As #1Print #1, c & vbCrLf & ":您的网上ip地址查得就是,网络商是:" & d & ",现在时间是" & Now() ''内容 '写入"Close #1
