VB5: Como Avisar con 2 días de anticipación

[Sir Matrix]

Hola...

Alguien sabe cómo puedo hacer que el VB5 , a partir de la hora del PC me calcule dos días más y me mande un mensaje así: "Juanito vendrá pasado mañana"...??

saludos

[rsiles]

Dim fecha_probable As Date
fecha_probable = DateSerial(Year(now) , Month(now), (Day(now) + 2))
MsgBox "Juanito vendra pasado mañana" & fecha_probable

[Sir Matrix]

Muchas gracias! me ha funcionado bien

[GeoAvila]

bueno no se si funciona en Vb5 pero en Vb6 se pude hacer de esta manera

MsgBox Date + 2

nos vemos