VB6 estrarre i valori decimali

[allejo]

Come dico nel titolo come faccio in vb a estrarre solo i valori decimali????

[TrigunXX]

Function getDecimale(ByVal valore As Double) As Double
Dim str() As String
Dim risultato As String
risultato = Replace(CStr(valore), ".", ",")
str = Split(risultato, ",")
If UBound(str) > 0 Then
    risultato = "0," & str(UBound(str))
Else
    risultato = "0"
End If
getDecimale = CDbl(risultato)
End Function

Private Sub Command1_Click()
Dim valore As Double
valore = 1325.0002145
MsgBox getDecimale(valore)
End Sub

[allejo]

grazie mille x l'aiuto