Con esto he conseguido solucionar lo de la hora.
[COLOR=DarkOrange]
Lo que no se solucionar ahora es lo de la fecha,
es decir, si son en el servidor mas de las 18 horas,
quiero que la variable fecha sea un dia mas del que hay en el servidor.[/COLOR]
Dim fecha
Dim hora
Dim minuto
'tomamos el instante de entrada.
hora = Hour(Now())
hora = hora + 6
If hora = 24 then
hora= 0
else
If hora > 24 then
hora= hora -24
else
end if
end if
minuto = Minute(Now())
fecha = Date
¿Como sigo?
fecha=.................
Gracias por adelantado