How to use inverted comma's through macro

Hi there

I have a question regarding how to send inverted commas "" through macro

I have below formula which is working fine in Excel

=IF(LEN(A4)=4,"00"&A4,IF(LEN(A4)=5,"0"&A4,IF(LEN(A4)=6,""&A4)))

but now i want to send this through a command through macro like below

ActiveCell.Formula = =IF(LEN(A4)=4,"00"&A4,IF(LEN(A4)=5,"0"&A4,IF(LEN(A4)=6,""&A4)))


I have tried below solution but its not working.

"=IF(LEN(A4)=4,Char(34)&00&Char(34)&A4,IF(LEN(A4)=5,Char(34)&0&Char(34)&A4,IF(LEN(A4)=6,Char(34)&Char (34)&A4)))"

Any help highly appreciated.

Thanks

Khawar