' 根据用户的选择进行相应的操作
If response = vbYes Then
' 用户选择了"是",继续执行操作
' 在这里编写你的操作逻辑
MsgBox "操作已执行"
Else
' 用户选择了"否",取消操作
' 这里可以不做任何操作,或者进行一些其他的处理
MsgBox "操作已取消"
End If
End Sub
Function ConfirmDialog(message)
' 显示确认对话框并返回用户选择的值
response = MsgBox(message, vbYesNo + vbQuestion, "确认")
ConfirmDialog = response
End Function[/code]