¿Que tiene de malo este código?

[franko1809]

A mi si me funciona asi:

Código:

Dim path As String

Private Sub Command1_Click()
    Dim linea As String
    Open path For Input As #1
    While Not EOF(1)
        Line Input #1, linea
        Text1.Text = ""
        If Len(Text1.Text) = 0 Then
            Text1.Text = Text1.Text & linea
        Else
            Text1.Text = Text1.Text & vbNewLine & linea
        End If
    Wend
    Close #1
End Sub

'Boton guardar
Private Sub Command2_Click()
    Open path For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Form_Load()
path = App.path & "\archivo.txt"
End Sub