Access - Ideas para campo aplicación contabilidad

Necesito ayuda

Estoy haciendo una pequeña utilidad de contabilidad, en la que tengo un campo que es "CuentaContable" que debe tener un tamaño de 9 dígitos.

Los programas de contabilidad suelen tener un caracter que al introducirlo rellena de "0" todos los huecos necesarios a derecha y a izquierda para completar el tamaño y así ir más rápido.

P.ejem.

Si tecleas 431 y la tecla "+" rellena y pone 431000000
Si tecleas 431 y la tecla "+" y "189" pone 431000189

Alguna idea.
Gracias y un saludo.

Resuelto de una forma un poco "primitiva" pero funciona.

Private Sub TXT1_LostFocus()
Dim Posicion As String
Dim Longitud As String
Dim Izquierda As String
Dim Derecha As String
Dim Falta As String
Dim Zeros As String


Longitud = Len([TXT1])
Posicion = InStr(1, [TXT1], "+")
Izquierda = Mid(TXT1, 1, Posicion - 1)
Derecha = Mid(TXT1, Posicion + 1, 9)
Falta = 9 - Len(Izquierda) - Len(Derecha)

If Falta = 9 Then
Zeros = "000000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 8 Then
Zeros = "00000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 8 Then
Zeros = "00000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 7 Then
Zeros = "0000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 6 Then
Zeros = "000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 5 Then
Zeros = "00000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 4 Then
Zeros = "0000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 3 Then
Zeros = "000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 2 Then
Zeros = "00"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 1 Then
Zeros = "0"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta < 0 Then

MsgBox " sobran caracteres, vuelva a insertar la cuenta."

TXT2 = ""
TXT1.SetFocus
End If
End Sub