A.Private Sub Command1_Click() Open"out.txt"For Input As#1 Print#1,Text1.Text Print#1, Close #1 End Sub B.Private Sub Command1_Click()Open"out.txt"For Output As#1 Text1l.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