17-11-16, 12:01 AM
السلام عليكم
استخم الكود التالي
استخم الكود التالي
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Val(Text1.Text), "Standard")
End Sub
