不能直接用
Dim d As String = "abc" & vbcrlf & "123"Dim ary() As String = d.replace(chr(10), "").split(chr(13))For i As Integer = ary.length-1 To 0 Step -1 msgbox(ary(i))Next
http://www.foxtable.com/webhelp/scr/0760.htm