تشخیص زبان کیبورد

سلام از کد پایینی برای شناسایی زبان کیبورد استفاده کردم منتها برنامم خطا میده، این شرط رو تو رویداد TextChanged، ادیت تکست نوشتم به این صورت: Sub EditText1_TextChanged (Old As String, New As String) st=EditText1.Text.SubString2(0,1) asci=Asc(st) If (asci>=65 And asci<=90 ) Or (asci>=95 And ...