Problema con código en Visual Fox

Tengo una tabla en visual fox. El tipo de datos es entero pero necesito alinearlos a la izquierda. Bueno, el problema es el siguiente: Tengo el siguiente código:
nAnswer=MESSAGEBOX('¿Confirma que desea guardar los datos?', 4+48,;
'Confirmación')
IF nAnswer=6 THEN
SELECT celula
GO TOP
IF EOF()
var1=0
ELSE
CREATE TABLE Virtual(campcorr INT(4))
SELECT correlativo FROM celula WHERE cod_coord = ;
SUBSTR(thisform.combcoord10.Value,1,3) INTO TABLE Virtual
SELECT Virtual
SCAN
var1=MAX(Virtual.campcorr, campcorr)
ENDSCAN
var1=var1+1
DROP TABLE Virtual
ENDIF
DO case
CASE var1>=0 AND var1<10
strcorr="000"+STR(var1)
MESSAGEBOX(strcorr)
CASE var1>=10 AND var1<100
strcorr="00"+STR(var1)
CASE var1>=100 AND var1<1000
strcorr="0"+STR(var1)
CASE var1>=1000 AND var1<10000
strcorr=STR(var1)
OTHERWISE
MESSAGEBOX("Número de célula no válido para este
Coordinador. Comuníquese con el Administrador del
Sistema.", 0+16,"Error en correlativo")
ENDCASE
El mensaje en rojo me muestra el valor de la variable que, según este código es "000 0", pero quiero que me salga "0000" y no sé cómo hacerlo.
Agradecería mucho que me digan cómo se hace si es posible.