Private Sub Command1_Click()
Dim x
x=split(richtextbox1.Text ,vbcrlf)
Open "c:\temp.txt" For output As #1
for i=0 to ubound(x)
print #1,,x(i)
next
Close #1
End Sub
Private Sub Command1_Click()
Dim x As String
richtextbox1.Text = ""
Open "c:\temp.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
richtextbox1.Text = richtextbox1.Text & x & vbCrLf
Loop
Close #1
End Sub