Hope this helps...

Sub test()
Dim numbercomponent, decimalcomponent, longprice, modifiedprice

longprice = Range("A1").Value
modifiedprice = longprice / 1000
numbercomponent = Int(modifiedprice)
decimalcomponent = modifiedprice - numbercomponent

MsgBox "Numbercomponent = " & numbercomponent & vbNewLine &
"Decimalcomponent = " & decimalcomponent
End Sub


Thanks,

Yogendra

Steve wrote:

Hi, I need to be able to seperate a number into two components, its decimal
and non decimal component.

For example:
Long Price = 108100
ModifiedPrice= Price/1000 (ie. 108.100)

I need to store these value in two different varibales
numbercomponent = ? (108)
decimalcomponent= ? (.100)

Thank you