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