یه مشکل متفاوت (استفاده از if)

[shahabsoltani]

سلام
من این کد رو نوشتم
dim n
dim m
n="شهاب"
m="علی"
if textbox1.value >=n & m then
textbox3.value=textbox4.value *100/6
elseif textbox1.value<>n & m then
textbox3.value=textbox4+10
end if
حالا دوستان مشکل اینجاست که من فقط میخوام برای شهاب و علی یه عددی رو ضربدر 100و تقسیم بر6 بکنه
در غیر اینصورت مابقی افراد رو بعلاوه 10 بکنه
حالا همه اسمهایی رو که بصورت فارسی تایپ میکنم رو ضربدر 100و تقسیم بر 6 میکنه(یعنی مثل شهاب و علی باهاش برخورد میکنه)
اما زمانیکه اسمی رو به انگلیسی وارد میکنم درست عمل میکنه
لطفا میشه کمک کنید

[MEYTI]

RE: یه مشکل متفاوت (استفاده از if)

نمونه فایل خدمت شما
اگر با نوشتن "علی" به مشکل خوردین برای تایپ حرف "ی" از shift + x استفاده کنید