ayuda con macros enumeracion en word

[polloconrabia]

tome este codigo de una web para insertar numeracion en cada pagina de word , pero solo esta enumerando 001 en cada pagina y no incrementa , podria ver si me ayudan con este codigo.

*previamente cree un marcador  de nombre Order  porque el codigol lo pedia asi como un archivo de texto  Settings ubicado en la D:

* la idea era colocarlo en el encabezado del documento de word y que al hacerlo se aumentaria automaticamente como cuando se utiliza de forma normal insertar numeracion

* el codigo lo coloque en un boton  de un form con el evento click

* si alguien tiene una idea diferente de como enumerar las paginas, es bienvenido .. y si pueden ayudarme a que el formato no pase 5 digitos estaria agreadecido
----
Order = System.PrivateProfileString("D:\Settings.Txt", _
        "MacroSettings", "Order")

If Order = "" Then
    Order = 1
Else
   Order = Order + 1
End If

System.PrivateProfileString("D:\Settings.txt", "MacroSettings", _
        "Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "000#")

---