VB试试chr(13)&chr(10)或vbcrlf