دوست عزیز این که کاری نداره
باید از تابع replace استفاده کنید
توضیح این که باید حرف "ی" را در واژه مورد جستجو و متن مورد جستجو یک دست کنید
فرض کنید می خواهیم کلمه "حسین" را در text1.text جستجو کنیم در حالی که ممکن است حسین از "ی" عربی تشکیل شده باشد
این کد را می نویسیم
dim Word as string="حسین"
Word =word.Replace("ی", "ی")
Word = Word.Replace("ى", "ی").Replace("ک", "ک")
'تبدیل در متن
text1.text= text1.text.Replace("ی", "ی")
text1.text= text1.text.Replace("ى", "ی").Replace("ک", "ک")
' Your Search Code
if instr( text1.text,word)>0 then msgbox "Found!"
البته باید توجه داشت که "کاف" عربی با فارسی نیز تفاوت دارد لذا کاف را هم تبدیل کردم