rango de archivo excel pasar a formato txt

Buenas tardes espero me puedan ayudar por favor, tengo el siguiente
codigo , pero a la hora que me pasa algunos datos me los convierte a
un formato que no deseo, por ejemplo las fechas son 09-09-2011 y me
los pone 9/9/2011, asi como otro tipo de formato, ademas la ruta donde
deseo guargarlo debe de ser R:\datos\polizas

Muchas gracias por su ayuda por adelantado.

Saludos.

Sub RangoXlsaTxT()

Dim rng As Range, nombr As String
On Error Resume Next
Set rng = Application.InputBox("Selecciona el rango a guardar:",
Type:=8)
If rng Is Nothing Then Exit Sub

Workbooks.Add xlWBATWorksheet
rng.Copy: [a1].PasteSpecial xlPasteValuesAndNumberFormats

nombr = ThisWorkbook.Path & "" & Format(Now, "yyyymmddhhmmss") & ".
Txt"

ActiveWorkbook.SaveAs Filename:=nombr, FileFormat:=xlTextMSDOS
ActiveWorkbook.Close False
MsgBox "Creado archivo: " & vbCrLf & nombr
End Sub

__________ Information from ESET Smart Security, version of virus
signature database 6488 (20110923) __________

The message was checked by ESET Smart Security.

http://www.eset.com