文本框的值怎么读？？？

Question

一文本框(text1)，设置多行属性为真。我输入以下内容：
asdf 回车
fdsa 回车
aaaa 回车然后再用msgbox text1.text
显示格式为asdf
fdsa
aaaa问：我怎么逐行读出数据？我想得到的效果是：逐行读出数据，每行增加|这个标记。效果为 asdf|fdsa|aaaa

Answer 1

s=replace(text1,vbcrlf,"|")

Answer 2

用split比较快:    temp = Split(Text1.Text, vbCrLf)
    
    Dim i As Integer
    For i = 0 To UBound(temp)
        Debug.Print temp(i)
    Next