Salvi il file e lo rileggi in binario? Perchè mai? Che giro fai?

Comunque, per arrivare al punto. Puoi fare in diversi modi.
L'importante è
che in questo for
codice:
for i = 0 to Ubound(ArrayCampi) 
myString = myString & ";" & strRevert(objrs.fields(arrayCampi(i)).value) 
next
Hai un elemento che ti faccia capiere che il campo in questione è una data.