Add below code after this line '

   xlWorkSheet = xlWorkBook.Sheets(1)

xlworksheet.Range("A:Z").NumberFormat="@"

This will change any number format your excel to text.

The range depends on the size of data you are exporting.It can be:("A:AB")...etc