VBA引用函数和修改改格式

1 我在vba里面想要引用text函数。
比如c1单元格里面是 1000623 或 001000623 我希望在d1单元格里面统一成 001000623这种9位的数字
我写的程序是 Cells(1,4) = Application.WorksheetFunction.text((1,3), "000000000") 结果输出的结果都是1000623。求大神指教哪里写错了

2 怎么用vba把a1单元格的格式改为日期（x月x日的那种）（即把42236改成8月20日）

Sub s()
Cells(1, 4) = Cells(1, 3)
Cells(1, 4).NumberFormatLocal = "000000000"
End Sub

刚才看了你的另一个提问，已经解释了修改单元格值的vba代码。从本题来看，你不是想要那个。故还是强烈建议你上传个附件例表，再详细的说一下你的需求。或者把你的代码发上来看一下。