اشکال در این پوت باکس

با سلام خدمت همگی استادان :wink:
می خواستم بدونم که کجای این کد اشتباهه؟ :cry:

Private Sub Form_Load() 

e = 0 

i = i 

While i <= 100 

e = e + i 

i = i + 5 

Wend 

Label1.Caption = e 

If e < 1000 Then 

k = MsgBox("˜&ÊÑ ÇÒ 1000", vbOKOnly, "Ê&Ì& -- Ê&Ì& --") 

Else 

b = InputBox("È&ÔÊÑ ÇÒ 1000 &˜ &Ç& ÑÇ &ÇÑÏ ˜&&Ï", "È&ÔÊÑ ÇÒ 1000", "") 

End If 

If b = Cancel Then 

End 

Else 

If b = "" Then 

w = MsgBox("Plz complete", vbOKOnly, "salam") 

Else 

Label2.Caption = b 

End If 

End If 

End Sub 

البته نوشته هایی مثل ؟&ÔÊÑ ÇÒ 1000 &˜ &Ç& ÑÇ &ÇÑÏ ˜&&Ï که این شکلی شدن نوشته های فارسین :wink: :roll:
من در واقع بیشتر منظورم اینه که اگر کاربر روی Cancel کلیک کرد از برنامه خارج شه و اگر داخل این پوت باکس چیزی ننوشت و Ok رو زد به اون یک MsgBox نشون بدم :wink:
اما این طور که متوجه شدم اگر کاربر داخل این پوت باکس رو خالی بزاره و روی OK کلیک کنی یا روی Cancel کلیک کنی هر دو (در هر دو صورت) مقادر تهی یا "" را بر میگردانند . بنابر این بر اساس کدی که نوشتم باید از برنامه خارج بشه ولی من این رو نمی خوام رو می خوام که ...(دربالا گفتم :wink: )

آقا احسان سلام
چرا خودتون با استفاده از یک <span dir=ltr>Form</span> کد این کار را نمی نویسید
شما میتوانید با استفاده از یک <span dir=ltr>Textbox</span> و دو عدد <span dir=ltr>commandButton</span> کاری را که میخواهید انجام دهید
اگر کد آن را خواستید بگویید تا برایتان بنویسم

متاسفانه این جوری ازم خواستن :cry:
از راهنمایی شما ممنون ولی... :wink: :cry: :roll:

:o با سلام

توی کدهای بالا که نوشتی خط زیر رو اصلاح کن.

کد شما:
If b = Cancel Then

اصلاح شود به:
If b = vbCancel Then

با احترام- خدانگهدار.