Transposing list of values with 6 zeroes in front to retain the zero after transposing

Hi,
I have a list of Serial Numbers which are all twenty digits with 6 zeros in front of the number
i.e
00000010060470726395
00000010060470856481
00000010060470726395
00000010060470886402
..
..
I am trying of a way to transpose these into 1 column like 00000010060470726395,00000010060470726395,00000010060470856481 etc
I am using this code which does the transposing but ignores the 6 zeroes and starts with the first digit kinda like 10060470726395,10060470726395.
How can i rectify to include the 6zeroes..?

Public Sub TransposewithoutT()
Dim vData As Variant
vData = Application.Transpose(Cells(1, "A").Resize(Cells(Rows.Count, "A").End(xlUp).Row))
Range("L4").Value = Join(vData, ",")
End Sub

I think it is a formatting issue. You can format these values as text before you use the above code.

i have tried this to no avail, it still goes back to the 100604.. value.. I tried custom with '000000' but changes back to the 100604 value when the code is run.
any other ideas??

This should do

Sub test()
    Dim x As String
    x = Range("a1", Range("a" & Rows.Count).End(xlUp)).Address
    [l4] = "'" & Join$(Evaluate("transpose(" & x & ")"), ",")
End Sub