Private Sub Command1_Click()

Open "c:\\21.txt" For Append As #1

Print #1, Text1.Text

Close #1

End Sub

Private Sub Command2_Click()

Dim Lstr As String

Text1.Tag = "open"

Open "c:\\21.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, Lstr

Text1.Text = Text1.Text + vbCrLf + Lstr

Loop

Close #1

End Sub