Access - ceros consecutivos en textos

Saludos todos:
Tengo una base de datos en tabla
Nombre del campo se llama numero, tipo de datos es texto.
Ejemp: 0001 caja general
0002 Almacén
0003 Proveedores, y así sucesivamente (Forzósamente lleva los ceros al principio, porque son números de cta. de cada rubro corrrespondiente.
Tengo el sig. código: en formulario
Private Sub Form current()
If NewRecord Then
numero=Nz(Dmax("numero","tabla1"))+1
End If
End Sub

Dicho Código me dá como resultado, cada vez que doy click en formulario, para nuevo registro 1,2,3 progresivamente
Mi pregunta, es como lo soluciono para que dé 0001,0002, o sea que me anote también los ceros
De antemano gracias

Hola Lucho:
Prueba con estos cambios:

numero = Nz(Format(DMax("numero", "tabla1") + 1, "0000"))

Saludos
Enrique

Enrique:
Infinitamente estoy agradecido con tu apoyo, muchísima gracias
Funciona muy bien
Saludos