ceros a la izquierda

Hola,
el campo primario de la tabla "secundaria" es numerico, optenido del

secuencia_on de la tabla "primaria" el cual tambien es numerico, al grabar
un registro en la tabla secuandaria se guarda como "13", pero necesito que
guarde "0013", alguien sabe como hacerlo?

adjunto el codigo:

sqlFind = "SELECT * FROM SECUENCIA WHERE SECUENCIA.SECUENCIA_ON <> 0"

Set RS = server.CreateObject("adodb.recordset")

Set RS = ConnSQL.execute(sqlFind)

While not RS.EOF

Valor = (RS.Fields("SECUENCIA_ON"))

Aumento = 1

Final = (Valor + Aumento)

RS.Movenext

Wend

%>

<%

Dim objFSO

Dim objFile

Dim strLine

Dim strFilename

CODIGO_CURSO = (Final)