Losing the infamous leading 0

So I export a file manually, then have some vbs code to make some changes and then send off to another file folder. im having a problem losing the leading 0 in two columns. any ideas?? Column E:E is one of them. I tried a line below but that didnt do the trick.

Thanks in advance!!

Set objExcel = CreateObject("Excel.Application")

objExcel.DisplayAlerts = FALSE
objExcel.Visible = False

varFile = inputbox ("Which file are you modifying? A or B")

dteOldDate = Now()
strNewDate = Year(dteOldDate) & Right("00" & Month(dteOldDate), 2) & Right("00" & Day(dteOldDate), 2)

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\malbre1\Desktop\Inovalon.csv")
Set objWorksheet = objWorkbook.sheets(1)

Set objRange = objWorksheet.UsedRange

'ActiveSheet.Range("E:E").NumberFormat = "@"

objRange.Replace Chr(34), "'"
objRange.Replace Chr(44), ";"

objWorkbook.SaveAs "C:\Users\malbre1\Desktop\Inovalon1.csv"
objWorkbook.close (False)

objexcel.quit

'Set objFSO = CreateObject("Scripting.FileSystemObject")

'objFSO.CopyFile "C:\Users\malbre1\Desktop\Inovalon.csv", "C:\Users\malbre1\Desktop\ScheduledAssessments" & "_" & strNewDate & varFile & ".csv"

'objFSO.DeleteFile "C:\Users\malbre1\Desktop\Inovalon.xls"

Thank you, do you know the convention in how that field formatting is used? I dont believe this will work as I had outlined before 'ActiveSheet.Range("E:E").NumberFormat = "@"

*1 will remove zeros. Have vba do it for you. Ideally you would correct this at the source from where you are exporting using SQL.

Unclear from OP's post.

If you want to keep say 5 digits including leading zeros.. Custom format > 00000

yes this is very difficult, I am going to try a couple of these options, however im stuck with the intial export in .csv format. If you are familiar with SalesForce at all - I only have access to the UI, which only allows me to export as .csv or .xls. The .xls is in some web format which will not allow me to modify through VBA.