[AMAZ1972AMAZ]

السلام عليكم جميعا
محتاج منكم مساعدة فى التعديل على هدا الكود
بحيث يرجع الرقم اى ماكان علية
قمة بأظافة هدا الكود
Label1.Text = "0." & Val(Label2.Text)
يعنى يتم تحويل اى رقم الى كسر مثل
1 يصبح 0.1
100 يصبح 0.100
10000 يصبح 0.10000
2321 يصبح 0.2321
4320 يصبح 0.4320 وهكدا
اريد كود يقوم بأزالة الفاصلة (.) وارجاع الرقم الى سابقة مع ان يبقى جميع الاسفار
يعنى 0.10000 تصبح 10000 ولا تصبح 1
هدا الكود فى الارقام التى لاتنتهى بصفر يشتغل بس فى الارقام المنتهى بصفر لايعطى نتيجة صح يرجى يرجى يرجى المساعدة بكود او التعديل على هدا الكود

ولكم الدعاء والشكر
Dim x As Object
x = Split(Val(Label12.Text), ".")
Label13.Text = x(1)
Label8.Text = x(0)