[Ahmed_Mansoor]

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

أهلا بك أخي الكريم , الشكر موصول للأخ العزيز السندباد100 على تقديم المساعدة , هذا كود آخر لعمل ذلك , أنشئ مشروع جديد ثم أدرج على الفورم 4 تكست بوكس و واحد زر ثم ضع هذا الكود داخل كود الزر :

PHP كود :

Dim A As Long
Dim B As Long
Dim Result As String

A = Val(Text1.Text)
B = Val(Text2.Text)

Result = A / B

Text3.Text = Left$(Result, 1) & String$(Len(Result) - 1, "0")

If Len(Result) > 1 Then
   Text4.Text = Mid$(Result, 2)
End If