Private Sub close_Click() Text1.Text = "" Close #1 End Sub Private Sub OP_Click() CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1 End Sub Private Sub SV_Click() CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub SVS_Click() CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End Sub