APrivate Sub Co mmand1_Click()
Open "out .txt"For Input As #1
Print #1,Text1.Text
Close #1
End Sub
BPrivate Sub Co mmand1_Click()
Open "out .txt"For Output As #1
Print #1,Text1.Text
Close #1
End Sub
CPrivate Sub Co mmand1_Click()
Open "out .txt"For Append As #1
Print #1,Text1.Text
Close #1
End Sub
DPrivate Sub Co mmand1_Click()
Open "out .txt"For Rando m As #1
Print #1,Text1.Text
Close #1
End Sub