14Private Sub C1_Click() Dim strinfo As String Open \"in6.txt\" For Input As #1 Input #1, strinfo\'Close #1 \'Text1.Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1.Text) \'strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1)) + 2) Next \' Text1.Text = strchange End Sub Private Sub C3_Click() Open \"out6.txt\" For Output As #1 Print #1, Text1.Text Close #1 End Sub
