Mantener siempre un valor en una caja de texto

[jcasillase]

Hola... Yo lo hago de esta manera... espero te funcione...

Private sub MiCampo_Change()
If Len(Trim(txtMiCampo.Text)) = 0 Then
'Puedes ponerle simplemente 0 o el formato que tu quieras
txtMiCampo.Text = Format(0, "000")
txtMiCampo_GotFocus
DoEvents
End If
End Sub

Obviamente en el evento GotFocus tengo programado lo siguiente

Private Sub MiCampo_GotFocus
Let MiCampo.SelStart = 0
Let MiCampo.SelLength = Len(MiCampo.Text)
End Sub

Saludos