هل توجد دالة في VB للتأكد من لغة النص فى textbox

طبعا يوجد طريقة سهلة انا متبعها وهي فحص الـAscii Code للاحرف الموجودة في النص

Private Sub Command1_Click()
        If Check_Arab_Lang(Text1.Text) = True Then
                    MsgBox "Arabic Text Found !"
                        Else
                     MsgBox "All Text is English !"
        End If
                    
End Sub

Public Function Check_Arab_Lang(swText As String) As Boolean

Dim T As Long
For T = 1 To Len(swText)
    
If Asc(Mid(swText, T, 1)) > 128 Then '***
            Check_Arab_Lang = True
                Exit For
                    Else
            Check_Arab_Lang = False
                   
End If '***
    
        DoEvents
Next T

End Function

تشكراااااااااااااااااااااااااات ياخ prof باضبط هذا مااريد