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

سلام

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

منتها برنامم خطا میده، این شرط رو تو رویداد 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 asci<=122) Then

		cur=s.ExecQuery("SELECT En,Fa FROM tbl WHERE En LIKE '"&EditText1.Text&"%'")
		For i = 0 To cur.RowCount-1
			cur.Position=i
			ListView1.AddTwoLines(cur.GetString("En"),cur.GetString("Fa"))
			
		Next

	Else
	
		cur=s.ExecQuery("SELECT En,Fa FROM tbl WHERE Fa LIKE '"&EditText1.Text&"%'")
		For i = 0 To cur.RowCount-1
			cur.Position=i
			ListView1.AddTwoLines(cur.GetString("Fa"),cur.GetString("En"))
			
		Next
	End If
	
End Sub

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

در سایتهاجستجو کردم اما نه کتابخانه ی تشخیص زبان کیبورد رو پیدا کردم نه سورسی که به کارم بیاد.

ممنون از سایتوت واقعا کمکم کرده

لطفا مثل همیشه راهنماییم کنید.