In VB6 facevo così:

codice:
importo = 125,80


parte_intera = int(importo)

parte_decimale = importo-parte_intera