A.Private Sub Command1_Click() Open "out.txt" For Input As #1 Print #1, Text1.Text Close #1 End Sub B.Private Sub Command1_Click() Open "out.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub C.Private Sub Command1_Click() Open "out.txt" For Append As #1 Print #1, Text1.Text Close #1 End Sub D.Private Sub Command1_Click() Open "out.txt" For Random As #1 Print #1, Text1.Text Close #1 End Sub