اخي مـ . خالد
التغيير في الفقر الرابعة من الكود وبالتحديد في
B = Val(Right(Format(x, "000000000000.000"), 3))
رقم 3 وكذلك الثلاثة اصفار من بعد الفاصالة يعني لو اردناه يكتب خانتين تكون الصيغة كالاتي
B = Val(Right(Format(x, "000000000000.00"), 2))
فتجد عند تغيير الرقم الى 2 تم تغيير الاصفار بعد الفاصلة الى صفرين
ارجو ان يكون الشرح واضح
تحياتي لك