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