主题：用什么办法，输出信息象dos窗口那样，一行一行提示

不明白你什么意思。如果是合并字符，参考

Dim s As String = "123456"
msgbox(s)
s = s & vbcrlf & "abcd"
msgbox(s)
s = s & vbcrlf & "aaaaaabbbbcccc"
msgbox(s)