Visual Basic para Aplicaciones - decimales y enteros

Necesito que cuando un textbox pase a otro objeto( textbox ejemplo)
Haga lo siguiente:

En el textbox1 digito un numero, si el numero tiene decimales queda con los decimales, por el contrario si no tiene, cuando me paso al textbox2 debiera agregarle ".0".
Es decir:

Si digito 10 debiera resultar: 10.0
Si digito 12.3 debiera mantenerse 12.3

Gracias

Prueba este codigo en el evento LostFocus del textbox

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "#.0##")
End Sub