Tengo un campo de 10 dígitos, llamado Código.

Lo que quiero es ahorrar tiempo al digitar, por ejemplo;
Si se pulsa 4.1 y Enter que rellene en el campo código 4000000001
O que si pulsas 4.23 ... 4000000023
y así por el estilo.


JOSE MARIA FUEYO
================

Prueba a poner este código en el evento "al perder el foco" (los focus).
Supongo que el cuadro de texto se llama txtTEXTO

    txtTEXTO.Text = (Left(txtTEXTO.Text, 1) * 10 ^ 9) + Right(txtTEXTO,Len(txtTEXTO.Text) - 2)

JUAN M AFAN DE RIBERA
=====================
Otra más, así puedes escoger:

llama a esta función, pasándole como parámetros el número de digitos total
que quieres que tenga la subcuenta, y el valor del cuadro de texto, por
ejemplo:

    Texto1=numCuenta(10,Texto1)

y aquí, la función:

Function numCuenta(nTotalDigitos As Integer, cadena As String) As String
Dim cad As String
Dim pos As Integer
Dim longitudIzquierda As Integer
Dim longitudDerecha As Integer

  pos = IIf(InStr(cadena, ","), InStr(cadena, ","), IIf(InStr(cadena, "."),
InStr(cadena, "."), 0))
  If pos > 0 Then
    longitudIzquierda = pos - 1
    longitudDerecha = Len(cadena) - pos
    cad = Left(cadena, longitudIzquierda)
    cad = cad & String(nTotalDigitos - (longitudIzquierda +
longitudDerecha), "0")
    cad = cad & Right(cadena, longitudDerecha)
    numCuenta = cad
  Else
    numCuenta = cadena
  End If

End Function

de esta manera te servirá si escribes 4.1 como 4.23 como 410.251, como
4751.77 o lo que sea.