Dim MyInt as Integer
Dim MyFloat as Double
 
MyFloat = 5.43295
 
' Mit Faktor 1000 multiplizieren, um alle gewünschten Stellen vor das Komma
' zu bringen:
 
MyFloat=MyFloat * 1000
 
' In Integer umwandeln, um verbleibende Stellen zu runden:
 
MyInt = Int(MyFloat) ' Die INT-Funktion rundet: INT(5432.95) ergibt 5433
 
' Zurückdividieren:
 
MyFloat = MyInt / 1000  ' Ergibt 5.433