[اسلام الكبابى]

  اضافة بسيطة فى بداية الكود

كود :

Private Sub Command2_Click()
Dim x As Variant
       NUM = Val(Text1.Text)
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = 0: GoTo 100
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = "": GoTo 100
 Rem"تكتب فى كودك احدى الجملتين السابقتين فقط"
x = Split(Val(Text1.Text), ".")
TexT3.Text = x(0)
Text4.Text = x(1)
100 End Sub