Private hebrewletters As String= "אבגדהוזחטיכלמנסעפצקרשתךםןףץ"
...
Sub haslegalwords (txt As String) As Boolean 'ignore
If txt.Length = 0 Then Return False
Dim foundhebrewletters As Boolean = False
For i = 0 To txt.Length - 1
Dim c As Char = txt.CharAt(i)
If hebrewletters.Contains(c) Then
foundhebrewletters = True
Exit
End If
Next
Return foundhebrewletters
End Sub