Private Sub InputBoxReturn()

    Dim strTemp As String
    strTemp = InputBox("請(qǐng)點(diǎn)解確定或者取消按鈕")
 
    If StrPtr(strTemp) = 0 Then
        MsgBox "你點(diǎn)擊了 取消"
    Else
        MsgBox "你點(diǎn)擊了 確定"
    End If
End Sub