سوال در مورد InputBox

[m75an86]

با سلام
با چه کدی میتوان متوجه شد که کاربر دکمه cancel را در InputBox کلیک کرده. خروجی InputBox زمانیکه کاربر Cancel را کلیک کنه یا مقداری وارد نکنه و ok را کلیک کنه هر دو حالت خالیه (vbnullstring) در نتیجه با تست خالی بودن خروجی InputBox نمیتوان تشخیص داد. توی تالار هم جستجو کردم ولی نتیجه ایی نگرفتم . ممنون میشم راهنماییم کنید

[Veteran]

Private Sub Command1_Click()
x = (InputBox(""))
If StrPtr(x) = 0 Then
MsgBox "Cancel Zade shode"
ElseIf Trim(Len(x)) = 0 Then
MsgBox "hich chizi vared nashode"
Else
MsgBox x
End If
End Sub

[Javad-2010]

Dim Temp$

Temp = InputBox(":عبارت مورد نظر خود را وارد نماييد", "Inputbox")
If StrPtr(Temp) = 0 Then
MsgBox ".شما کليد کنسل را فشار داده‌ايد" 'Option 1
Else
If Temp = "" Then
MsgBox ".شما هيچ چيزي وارد نکرده‌ايد و کليد تأييد را فشار داده‌ايد" ' Option 2
Else
MsgBox Temp 'Option 3
End If
End If

[Javad-2010]

این هم نمونه :