format as text excel vba code example

Example: excel vba change number format of cell to text

'VBA to change the Number Format of cell A1 to text:

[A1].NumberFormat = "@"