Obtener el valor entero de un numero

[KingColt]

Por ejemplo en una caja de texto tengo un valor numerico 10.00 cuando no tiene el foco y al colocarle el foco debe mostrar el valor entero es decir 10
El problema ocurre ocurre cuando el valor por ejemplo es 10.25 y al ponerle el foco me muestra 10 pero se pierde los decimales al quitarle el foco aqui dejo mi codigo

Private Sub Text3_LostFocus()
Text3 = Format(Text3, "##00.00")
End Sub

Private Sub Text3_GotFocus()
Text3 = Int(Text3)
End Sub

[jaleo0]

Text3 = Int(Text3) elimina los decimales.
Debes mantener el valor completo en algún otro lugar, por ejemplo en una variable global. Ej.
Dim VariableGlobal as Double
Private Sub Text3_LostFocus()
Text3 = Format(VariableGlobal, "##00.00")
End Sub

Private Sub Text3_GotFocus()
VariableGlobal=Text3
Text3 = Int(Text3)
End Sub