参考答案

Private Sub Form_Click()
    If Op1 Then
        Text3.Text = Text1.Text
        Text1.Text = Text2.Text
        Text2.Text = Text3.Text
        Text3.Text = "交换成功"
    ElseIf Op2 Then
        Text3.Text = Text1.Text & Text2.Text
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Text3.Text
    Close #1
End Sub