Retain Leading Zeros

I can't seem to get the Concatenate function to work in my macro when there is a combination of numbers and text. It works fine is there are no alpha characters. I am using this macro to format all of the data in column "A" to have 5 characters and be text. These values will later be used in formulas and Pivot Tables.


Sub Macro2()

Dim sinlen As String
Dim sinformat As Variant
Dim lastcell As Variant

Range("b1").Select
Selection.EntireColumn.Select
Selection.Insert Shift:=xlLeft

Range("a1").Select

Do
ActiveCell.Value = "'" & ActiveCell.Value ......