cuando creas una variable Date, te pone el formato dd/mm/yyyy hh:ss ampm, pero puedes darle el formato que quieras con el Format()

dim s as date
d = date 'Fecha actual
Format(d,"Long Date") -> "Martes 10 de Octubre de 2006"
Format(d, "Short date") -> "10/10/2006"
Format(d,"dd/MMMM/yyyy") -> "10/Octubre/2006")

DateDiff (Función): Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas

Ejemplo de la función DateDiff
Este ejemplo utiliza la función DateDiff para mostrar el número de días entre una fecha dada y hoy.

Dim LaFecha As Date   ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj


***Ejemplo tomado de la ayuda de VB