Visual Basic - Cargar y Guardar archivos *.txt

ayuda tengo q hacer un programa q carge y guarde un archivo de texto los objetos que voy a utilizar van a ser (text1, command1 y command2)

Text1.MultiLine = True
Command1.Caption = Cargar
Command2.Caption = Guardar

para que carge el archivo de texto que va ser caja1

Private Sub Command1_Click()
Dim x
x = FreeFile
Open App.Path & "\caja1.txt" For Input As x
Do While Not EOF(x)
Line Input #x, Txt
Text1 = Text1 & vbCrLf & Txt
Loop
Close x
End Sub

para que guarde el archivo de texto que va ser caja2

Private Sub Command2_Click()
Open App.Path & "\caja2.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

las formulas funcionan perfectamente pero tengo un problema con la segunda formula es q no me respeta los espacios entre lineas osea que en caja1 yo tengo el texto en varias lineas
que debo hacer para q me agrege linea por linea el contenido del text1 al archivo caja2.txt

para q caja1.txt y caja2.txt sean exactamente iguales

hola jonathan intentalo asi

Private Sub Command2_Click()
Open "c:\caja1.txt" For Output As #1
Open "c:\caja2.txt" For Output As #2
Print #2, Text1.Text
Print #1, Text1.Text
Close #1
Close #2
End Sub

esto te servira


Dim Fichero, Ficheropath As String

Private Sub Command1_Click()
CommonDialog1.Filter = "texto (*.txt)|*.txt|todos (*.*)|*.*"
CommonDialog1.ShowOpen
Ficheropath = CommonDialog1.FileName
Open Ficheropath For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub

Private Sub Command2_Click()
Open Ficheropath For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Command3_Click()
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
Fichero = CommonDialog1.FileTitle
Ficheropath = CommonDialog1.FileName
Open Ficheropath For Output As #1
Print #1, Text1.Text
Close #1
End Sub