A.Private SubCommand1_Click() Open "out.txt" For InputAs #1 Print #1, Text1.Text Close #1 End Sub B.Private SubCommand1_Click() Open "out.txt" For OutputAs #1 Print #1, Text1.Text Close #1 End Sub C.Private SubCommand1_Click() Open "out.txt" ForAppendAs #1 Print #1, Text1.Text Close #1 End Sub D.Private SubCommand1_Click() Open "out.txt" For RandomAs #1 Print #1, Text1.Text Close #1 End Sub