[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم أتمنى من كل قلبي مخلصًا أن تجد المساعدة قدر المستطاع من أساتذتنا الأعزّاء و الأكفّاء لأنّي بالواقع سألت سابقًا و لم أتوصّل لنتيجة .. فقط للتحايل بدلاً من ظهور بعد الرقم الخامس عشر الرمز E+ .. يمكن التعويض بالأصفار مثلاً :

كود :

Private Sub Text1_Change()
Text3.Text = Format(Val(Replace(Text1, ",", ".")) * Val(Replace(Text2, ",", ".")), "0000000000000000000000")
End Sub
Private Sub Text2_Change()
Text3.Text = Format(Val(Replace(Text1, ",", ".")) * Val(Replace(Text2, ",", ".")), "0000000000000000000000")
End Sub

تحياتي