怎样把字符串的vbCrlf符传给Excel单元格?

Question

text1中是
A
B
(ASCII: 65 13 10 66)但是用xlSheet.Range("A1").Value=text1.text赋值后
A1单元格显示
A(一个方框)
B
(ASCII: 65 13 13 10 66)怎样解决呢?

Answer 1

Sub Test()
Range("A1").Value = "A" & vbCrLf & "B" & vbCrLf & "C"
Dim I As Integer, B() As Byte, X() As String
B = StrConv(Range("A1").Value, vbFromUnicode)
ReDim X(UBound(B))
For I = 0 To UBound(B)
X(I) = B(I)
Next
Erase B
MsgBox Join(X, " ")
End Sub