Private Sub InputBoxReturn()

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