用print输出的文本就是有换行的，比如：
Open App.Path & " est.txt" For Output As #1Print #1, "这是第1行"Print #1, "这是第2行"Print #1, "这是第3行"Close #1
或者可以这样：
Dim s As Strings = "这是第1行" & vbCrLf & "这是第2行" & vbCrLf & "这是第3行"Open App.Path & " est.txt" For Output As #1Print #1, sClose #1
注：你没有说VB的版本，这里是VB6的
