参考答案

Private Sub Command1_Click()
    If Option1.Value And List1.Text <> "" Then
        Text1.Text = List1.Text & Option1.Caption
    Else
        If Option2.Value And List1.Text <> "" Then
            Text1.Text = List1.Text & Option2.Caption
        End If
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out3.txt" For Output As #1
    Print #1, Form1.List1.Text, Form1.Option1.Value, Form1.Option2.Value, Form1.Text1.Text
    Close #1
End Sub