عندي رقم صحيح اريد تجزئته

Dim num As Single, i As Integer

Dim intNumber As Integer, decNumber As Integer

num = 570.25

intNumber = Fix(Num)

i = InStr(Num, ".")

decNumber = IIf(i = 0, 0, Mid(Num, i + 1))

حركة يمكن شوية غبية :D

هي فكرة برده شكرا لك(f) (gift)

بسم الله والصلاة والسلام علي من لانبي بعده

اخوتي الكرام السلام عليكم ورحمة الله وبركاته لقد وجدت الحل ولله الحمد

وهذا هو لتعم الفائدة علي الجميع

جزاكم الله خيرا

Dim str As String
Dim x() As String

str = Text1.Text
x() = Split(str, ".")

For Each y In x()
   MsgBox y
Next