看看这里
Dim str As String = "abc" & vbcrlf & "123"
For Each s As String In str.Replace(chr(10), "").split(chr(13)) msgbox(s)Next