>I try this,
>

>oExcel.activesheet.Range("B"+TRIM(PADR(nrow,11))).NumberFormat = [0000000000]
>

>
>The cell can dispay 000234567, but the cell is still in numeric format.
>
>How to set the cell to a text format and can display leading zero ?

Prefix it with an apostrophe:

oExcel.activesheet.Range("B"+TRANSFORM(nrow)).value = ['000234567]