FormatDateTime

[wScorpion]

Prueba con la funcion:
DateAdd(intervalo, número, fecha)

Donde
intervalo= Expresión de cadena que contiene el intervalo de tiempo que se desea agregar.
(yyyy = Año
q=Trimestre
m=Mes
y=Día del año
d=Día
w=Día de la semana
ww=Semana
h=Hora
n=Minuto
s=Segundo)

número: Expresión numérica con el número de intervalos que se desea agregar. Puede ser positiva (para obtener fechas futuras) o negativa (para obtener fechas pasadas).
fecha = Valor de tipo Variant o literal que representa la fecha en la que se agregó el intervalo.

luego para tu caso en particular seria algo mas o menos asi:

NewDate = DateAdd("h", 6, MiDate)

Bye.