怎么才能实现呢？

比如
RichTextBox1.text里的内容是
白日依山尽
欲穷千里目

RichTextBox2.text里的内容是

黄河入海流
更上一层楼

怎样才能让RichTextBox3.text的内容是

白日依山尽, 黄河入海流。
欲穷千里目, 更上一层楼。

一开始我 用 RichTextBox3.text=RichTextBox1.text + RichTextBox2.text
可是出来的结果是这样的

白日依山尽
欲穷千里目 黄河入海流
更上一层楼

完全不靠谱 顺序乱了 诗不成句了

我本想在RichTextBox1.text 里读一行 然后在RichTextBox2.text里读一行
分别写入RichTextBox3.text

可是好象没有一行一行读写RichTextBox的语句。

求高人指点

帮帮忙

Private Sub Command1_Click()
Dim ind As Integer
Dim str1 As String, str2 As String, str3 As String, str4 As String
ind = InStr(1, RichTextBox1.Text, vbCrLf)
str1 = Left(RichTextBox1.Text, ind)
ind = InStr(ind, RichTextBox1.Text, vbCrLf)
str2 = Mid(RichTextBox1.Text, ind)

ind = InStr(1, RichTextBox2.Text, vbCrLf)
str3 = Left(RichTextBox2.Text, ind)
ind = InStr(ind, RichTextBox2.Text, vbCrLf)
str4 = Mid(RichTextBox2.Text, ind)

RichTextBox3.Text = RichTextBox3.Text & str1
RichTextBox3.Text = RichTextBox3.Text & str3
RichTextBox3.Text = RichTextBox3.Text & str2
RichTextBox3.Text = RichTextBox3.Text & str4
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "白日依山尽" & vbCrLf & "欲穷千里目"
RichTextBox2.Text = "黄河入海流" & vbCrLf & "更上一层楼"
RichTextBox3.Text = ""
End Sub

太感谢purana斑竹了 如须保护女孩权益我定当全力支持 呵呵 法律法规我比vb熟

但是还有点小问题

出来的结果是这样的

白日依山尽
黄河入海流
欲穷千里目
更上一层楼


我要的结果是这样的

白日依山尽 黄河入海流
欲穷千里目 更上一层楼


也就是 text1 和 text2 的内容每行并列相对

出现在text3中

Private Sub Command1_Click()
Dim ind As Integer
Dim str1 As String, str2 As String, str3 As String, str4 As String
ind = InStr(1, RichTextBox1.Text, vbCrLf)
str1 = Mid(RichTextBox1.Text, 1, ind - 1)
str2 = Mid(RichTextBox1.Text, ind + 2)

ind = InStr(1, RichTextBox2.Text, vbCrLf)
str3 = Mid(RichTextBox2.Text, 1, ind - 1)
str4 = Mid(RichTextBox2.Text, ind + 2)

RichTextBox3.Text = str1 & " " & str3 & vbCrLf
RichTextBox3.Text = RichTextBox3.Text & str2 & " " & str4
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "白日依山尽" & vbCrLf & "欲穷千里目"
RichTextBox2.Text = "黄河入海流" & vbCrLf & "更上一层楼"
RichTextBox3.Text = ""
End Sub

谢谢 实在是感谢 !