Formato fecha

En un principio para convertir y que te mantuviera el formato, con esta instrucción te debería funcionar.
CStr(Date$)
Esto te convierte la fecha del día a String, a mi por lo menos, me lo convierte sin problemas.
Dentro del paréntesis puedes pasarle la variable que quieras o una celda con el dato fecha.
Te pongo una reseña por si te sirve para otras veces:
Date y Date$ no son equivalentes:
La función Date$ devuelve la fecha del sistema en un string con el formato MM-DD-AAAA. Date devuelve un variant con el formato de fecha especificado en el Panel de Control (puede devolver, por ejemplo, DD-MM-AA). Si queremos realizar cálculos con fechas, debemos utilizar Date$. Para mostrar la fecha actual al usuario, basta con usar Date (sin el símbolo $).

Muy bien, pero por favor indícame como introduzco la función Date dentro de mi macro para que las columnas de fecha no me las cambie y me deje el formato de fecha de mi pc que es dd/mm/aaaa
Este es el código, ¿dónde iría CStr(Date)?
libro1 = ActiveWorkbook.Name
    nbre = "PPGlosas" ------ nombre que quiero dar al archivo txt
    ruta = "C:\Valglo" ------- carpeta de ubicación
    Sheets("Glosas a 1 col").Select ---- se ubica en la hoja que voy a pasar
    Application.DisplayAlerts = False ---- desactivo mensaje de confirmación
    ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
una cosa mas... si lo hago manualmente (guardar como - archivo de texto separado por tabulaciones - etc) no me voltea las fechas, solo que necesito q sea automático para una aplicación.
Gracias

Buena tu código debería quedar así, se me había pasado, que cuando convertimos fechas a string, gurda la fecha separada por barra, y windows lo reconoce como un carácter no válido para archivo. Así que te envío el código para que convierta las "/" de la fecha en "-" y así poder guardarlo. Te marco en negrita los cambios que he introducido.
Dim fecha As String
libro1 = ActiveWorkbook.Name
    nbre = "PPGlosas" '------ nombre que quiero dar al archivo txt
    ruta = "C:\Valglo" '------- carpeta de ubicación
    Sheets("hoja1").Select '---- se ubica en la hoja que voy a pasar
    Application.DisplayAlerts = False '---- desactivo mensaje de confirmación
    fecha = CStr(Date)
    resultado = Replace(fecha, "/", "-", , , vbTextCompare)
    fecha = resultado
    ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & "-" & fecha & ".txt", _
    FileFormat:=xlText, CreateBackup:=False

Por cierto se me ha olvidado cambiar esta linea:
Sheets("hoja1"). Select '---- se ubica en la hoja que voy a pasar
por la que tenias:
Sheets("Glosas a 1 col"). Select ---- se ubica en la hoja que voy a pasar
perdona por el fallo.

Lo que te recomiendo que hagas es lo siguiente:
Create una fórmula en excel el cual seleccione los dos primeros dígitos por la izquierda (entiendo que en excel seria el mes) y los intercambie por la posición 4 y 5 (hay que contar el espacio del separador / ) que corresponderían al día.

Gracias por tu respuesta, tal vez no me expliqué bien.---Pero lo que yo busco es el código dentro de la macro que te doy que si bien me funciona me exporta una fecha en excel dd/mm/aaaa a texto pero como mm/dd/aaaa
Este es el código,
libro1 = ActiveWorkbook.Name
    nbre = "PPGlosas" ------ nombre que quiero dar al archivo txt
    ruta = "C:\Valglo" ------- carpeta de ubicación
    Sheets("Glosas a 1 col").Select ---- se ubica en la hoja que voy a pasar
    Application.DisplayAlerts = False ---- desactivo mensaje de confirmación
    ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
una cosa mas... si lo hago manualmente (guardar como - archivo de texto separado por tabulaciones - etc) no me voltea las fechas, solo que necesito q sea automático para una aplicación.
Gracias