Visual Basic - Fechas

Hola, en mi BD en Acces tengo un campo con formato de fecha larga (Lunes, 04 de Julio de 2002), como puedo convertir esta fecha en VB ha fecha corta (04/07/2005)
Saludos
Alex.

Este codigo me funciona bien

Private Sub Command1_Click()
' Separar l afecha de la BD
fecha = Split("Lunes, 04 de Julio de 2002", " ")
' Indicar en una variable cual es la fecha actual
actual = Date
' Cambiar la fecha actual por la separada
Date = fecha(1) & " " & fecha(3) & " " & fecha(5)
' Mostrar la fecha actual (cambiada)
MsgBox Replace(Format(Date, "dd mm yyyy"), " ", "\")
' Devolver la fecha actual
Date = actual
End Sub

Intentalo y veraz que funciona bien

Mas sencillo, usalo de esta forma,

Format (campo_de_tipo_fecha, "dd/mm/yyyy") si te interesa el año de 4 digitos,
si solo lo quieres de 2 digitos, reduce en 2 la parte yyyy, osea solo usa yy y listo.