حل مشكلة ادخال غير الحروف - نسخة قابلة للطباعة

كود :
       If TextBox1.Text.StartsWith("ا") OrElse TextBox1.Text.StartsWith("ب") OrElse TextBox1.Text.StartsWith("ت") OrElse TextBox1.Text.StartsWith("ث") OrElse TextBox1.Text.StartsWith("ج") _

     OrElse TextBox1.Text.StartsWith("ح") OrElse TextBox1.Text.StartsWith("خ") OrElse TextBox1.Text.StartsWith("د") OrElse TextBox1.Text.StartsWith("ذ") OrElse TextBox1.Text.StartsWith("ر") OrElse TextBox1.Text.StartsWith("ق") OrElse TextBox1.Text.StartsWith("ك") OrElse TextBox1.Text.StartsWith("ل") OrElse TextBox1.Text.StartsWith("م") OrElse TextBox1.Text.StartsWith("ن") OrElse TextBox1.Text.StartsWith("ه") OrElse TextBox1.Text.StartsWith("و") OrElse TextBox1.Text.StartsWith("ي") _

     OrElse TextBox1.Text.StartsWith("ز") OrElse TextBox1.Text.StartsWith("س") OrElse TextBox1.Text.StartsWith("ش") OrElse TextBox1.Text.StartsWith("ص") OrElse TextBox1.Text.StartsWith("ض") OrElse TextBox1.Text.StartsWith("ط") OrElse TextBox1.Text.StartsWith("ظ") OrElse TextBox1.Text.StartsWith("ع") OrElse TextBox1.Text.StartsWith("غ") OrElse TextBox1.Text.StartsWith("ف") OrElse TextBox1.Text.StartsWith("ؤ") OrElse TextBox1.Text.StartsWith("أ") OrElse TextBox1.Text.StartsWith("ء") OrElse TextBox1.Text.StartsWith("إ") OrElse TextBox1.Text.StartsWith("ئ") Then



            MsgBox("موجود")



        End If