Удалить перенос строки

Private Sub Command1_Click()
'Text1.MultiLine=true
Dim F As Long
F = FreeFile
Open App.Path & "\Çàïèñü.txt" For Output As #F
Print #F, Text1.Text
Close #F
End Sub
 
Private Sub Command2_Click()
'Text2.MultiLine=true
Dim MyText As String, F As Long
Text2.Text = "": Text3.Text = ""
F = FreeFile
If Dir(App.Path & "\Çàïèñü.txt") <> "" Then
Open App.Path & "\Çàïèñü.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Text2.Text = Text2.Text & MyText & vbCrLf
If Text3.Text = "" Then
Text3.Text = Text3.Text & MyText
Else
Text3.Text = Text3.Text & "|" & MyText
End If
Loop
Close #F
Else
MsgBox "No f"
End If
End Sub

textbox2.Text = textbox1.Text

"12","вопрос 1","ответ1
ответ2
ответ3
отвт4","правильный ответ"

Private Sub Read_Data(num As Integer)
    Dim s As String
    Open App.Path & "\file.txt" For Input As #1
    While (Not EOF(1))
        Input #1, s
        textbox1.Text = s''''
        Input #1, s
        textbox2.Text = s''''
        Input #1, s
        textbox3.Text = s''''
        Input #1, s
        textbox4.Text = s''''
        If (textbox0.Text = textbox1.Text) Then
            Close #1
            Exit Sub
        End If
    Wend
    Close #1
    MsgBox "not find"
End Sub
 
Private Sub Command2_Click()
    Read_Data (CStr(textbox0.Text)) 'сюда вводим номер вопроса
End Sub