Private Sub InputBoxReturn()
Dim strTemp As String strTemp = InputBox("请点解确定或者取消按钮") If StrPtr(strTemp) = 0 Then MsgBox "你点击了 取消" Else MsgBox "你点击了 确定" End If End Sub