Excel VBA บังคับให้ตัวเลข เก็บเป็นตัวอักษร

เขียน VBA ไปก็งงไป อ่านรหัสสินค้ามา เป็น 0001 แต่พอเอาลง excel มันกลับมองเป็นเลข 1 อย่างเดียว และก็ไม่อยากใส่เครื่องหมาย ' ข้างหน้า เพื่อให้ excel มองว่าเป็น text กว่าจะหาวิธีแก้ได้
ตามนี้เลย:

Sheets("mySheet").Range("A1").NumberFormat="@"

บังคับให้ cell A1 แสดงข้อมูลเป็น text ไม่ใช่ตัวเลข