پرسش inputbox

[MAHDI7482]

سلام خدمت اساتید و دوستان گرامی من ماکرویی نوشتم که مقدار ورودی رو از کاربر میگیره ینی یک input box دارم به صورت عادی که مشکلی نیست ورودی lیگیره و کارشو میکنه ولی موقعی که کنسل میزنم یا ورودی خالی هست ارور ماکرو رو میده من میخوام کنسل زدم توقف بشه و اگه خالی بود میخوام که ارور بده ورودی را وارد کنید یا کنسل که مینم ارور نده و ماکرو رو متوقف کنه این دستور دادم در هر دو صورت که ورود خالی باشه و یا کنسل بزنم متوقف میشه

on error goto cancel
.
.
:cancel

حالا میخوام شرط بزاره ک اگه کنسل زدم یا ورودی خالی باشه این پیغام رو بده "شما ماکرو رو متوقف کردید یا ورودی رو خالی گذاشتید"

[M_ExceL]

سلام خدمت اساتید و دوستان گرامی من ماکرویی نوشتم که مقدار ورودی رو از کاربر میگیره ینی یک input box دارم به صورت عادی که مشکلی نیست ورودی lیگیره و کارشو میکنه ولی موقعی که کنسل میزنم یا ورودی خالی هست ارور ماکرو رو میده من میخوام کنسل زدم توقف بشه و اگه خالی بود میخوام که ارور بده ورودی را وارد کنید یا کنسل که مینم ارور نده و ماکرو رو متوقف کنه این دستور دادم در هر دو صورت که ورود خالی باشه و یا کنسل بزنم متوقف میشه

on error goto cancel
.
.
:cancel

حالا میخوام شرط بزاره ک اگه کنسل زدم یا ورودی خالی باشه این پیغام رو بده "شما ماکرو رو متوقف کردید یا ورودی رو خالی گذاشتید"

کد زیر رو تست کنید :

Sub test()
    Dim r As String
    r = InputBox("Enter Name :")
    If StrPtr(r) = 0 Then
        MsgBox "شما ماکرو رو متوقف کرديد"
    ElseIf r = vbNullString Then
        MsgBox ("ورودي رو خالي گذاشتيد")
    End If 

End Sub

[MAHDI7482]

کد زیر رو تست کنید :

Sub test()
    Dim r As String
    r = InputBox("Enter Name :")
    If StrPtr(r) = 0 Then
        MsgBox "شما ماکرو رو متوقف کرديد"
    ElseIf r = vbNullString Then
        MsgBox ("ورودي رو خالي گذاشتيد")
    End If 

End Sub

سلام این برای ورودی متنی هستن من ورودی عدد الان با دستکاری مشکلشو بر طرف کردم ممنون از پاسختون

[M_ExceL]

سلام این برای ورودی متنی هستن من ورودی عدد الان با دستکاری مشکلشو بر طرف کردم ممنون از پاسختون

متوجه نشدم؟؟!!
مشکل کجاست؟ هم عدد میشه وارد کرد هم متن.