Independientemente de que
pemorip ya te ha dado la solución, quiero intervenir para indicarte que es imposible (a mi juicio) que tu código te dé el error que reportas. Porque
a una fecha puedes sumarle un entero, y VB no te provoca ese error. Sin embargo sí se aprecian dos errores tuyos:
1º No pueden dimensionarte dos variables como lo haces tú:
Código:
Dim Fecha, Fecha1 As Date
Tendrías que escribir
Código:
Dim Fecha As Date, Fecha1 As Date
ya que las asignaciones en VB no se hacen en forma genérica, sino individualizada.
Y 2º Comprueba cómo defines una variable de nombre
Fecha1 y luego usas Fecha2... Así encontrarás errores por todas partes...