MsgBox vbYesNo

Dim Rtn&
Private Sub Command1_Click()
Rtn = MsgBox("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业")
'MsgBox IIf(Rtn = 6, "您选择了 Yes", "您选择了 No") '简单的写法
If Rtn = 6 Then
MsgBox "您选择了 Yes"
Else
MsgBox "您选择了 No"
End If
End Sub