[ابراهيم ايبو]

اخي لايجوز ولايمكن ذلك (حسب ما اعرف) 
عملية وضع الفاصلة لتسهيل القراءة هي كل 3 خانات هذا في دوال اللغة
سأحاول ايجاد كود لماتريد ان شاء الله

---

السلام عليكم
تفضل اخي هذا الكود ان كنت تريد فاصلة استبدل النقطة بالفاصلة وان كنت تريد النقطة فاتركها على حالها

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

       If e.KeyCode = Keys.Enter Then
           Dim AA() As Char = TextBox1.Text.ToCharArray()
           TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 2)
           TextBox1.Text = TextBox1.Text.TrimEnd(CChar("."))
           TextBox1.Text += "." & AA(AA.Length - 2) & AA(AA.Length - 1)

       End If
   End Sub

او هذا الكود المختصر وهو من احد الاعضاء يظهر في الاوقات الحاسمة يدلي بخبرته مشكورا ويبتعد عن الانظار جزاه الله كل الخير وامد في عمره وادام عليه وافر الصحة والعافية 
الصراحة لم يخطر في بالي ال(Insert) !!!!!

كود :

If e.KeyCode = Keys.Enter Then
           Dim AA As String = TextBox1.Text
           TextBox1.Text = AA.Insert(AA.Length - 2, ".")
       End If

لكن اخي الكريم اعيد واكرر هذا خطأ في العمليات الحسابية