Cambiar el Autonumérico

.
Tengo otra dificultad. En la siguiente programación no se como solucionarlo.
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim AñoActual As String
Dim NumAsignado As Long
Const Ceros As String = "0000"
AñoActual = Format(Now, _
"yyyy") & "/"
AñoActual = Nz(DMax( _
"IdDoc", _
"tblDocAdminE", _
"IdDoc like '" _
& AñoActual & "*'"), _
AñoActual & Ceros)
NumAsignado = Val(Right(AñoActual, Len(Ceros)))
NumAsignado = NumAsignado + 1
Nº_Entrada = Format(NumAsignado, Ceros)
IdDoc = Left(AñoActual, 5) & Format(NumAsignado, Ceros)
End Sub

esta programación funciona bien y el resultado es el siguiente.
en el text nº entrada esta bien aparece 1 - 2- 3 ...etc..
en el text idDoc aparece 2012 / 0001 ...... 2012 /0002 .......etc de acuerdo al primer text

el problema es que quiero que aparezca 0001 / 2012 ...... 0002 / 2012 ... Etc.
como puedo hacer para hacer este cambio
Te agradezco de antemano..