请帮忙解释一下以下代码
请帮忙解释一下以下代码的意思,尤其是红色字体部分.如果我想用一个命令按扭来实现我应该怎么做呢,谢谢了Private Sub Form_Load()
On Error GoTo Err
Open App.path & "\1.txt" For Input As #1 '读取文件
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Exit Sub
Err:End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.path & "\1.txt" For Output As #1 '保存文件
Print #1, Text1.Text '
Close #1
End Sub