[سامي محمد]

هذا طبيعي يا أخ .. لأن الدالة التي تقوم بعمل الفواصل بين الارقام هي متخصصة بالقيم ومن المعلوم انه لا يوجد شيء قيمته 000000 وحتى ان الدالة لا تعمل اذا كان النص الممرر إليه من نوع String وتلاحظ في الكود قمنا تحويل النص من String إلى Integer عن طريق الدالة Cint أو Val 

----
ولكن ان كنت تريد تجزئة اي نص مدخل في التكست بكس سوء كان ارقام او اصفار او حروف فستخدم هذه الطريقة

قم بستدعاء مجال الاسماء هذا

كود :

Imports System.Text.RegularExpressions

وضع هذا الكود بدلا من السابق

كود :

 kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, ",", "")
        kima_idkhal.Text = StrReverse(kima_idkhal.Text)
        kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "(.{3})", "$1,")
        kima_idkhal.Text = StrReverse(kima_idkhal.Text)
        kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "^,", "")

قد تكون هناك طرق اخرى ولكن هذا الذي طرأ علي الآن