Visual Basic - Restar o sumar un dia a una fecha

Hola,
Quisiera restar o sumar un dia a una fecha concreta.
Gracias

Ingresa en un Form 3 Text

'SUMAR
Dim Fecha1 As Date
Dim NumDias As Integer
Fecha1 = Text1
NumDias = Text2
Text3.Text = Fecha1 + NumDias

'RESTAR
Dim Fecha1 As Date
Dim NumDias As Integer
Fecha1 = Text1
NumDias = Text2
Text3.Text = Fecha1 - NumDias

'COMPARAR MENOR
If CDate(text1.text) < CDate(Text2.Text) then

'COMPARAR MAYOR
If CDate(text1.text) > CDate(Text2.Text) then

Espero te sirva el ejemplo.

Para sumar:
DateAdd("d", 1, Fecha)

Para restar:
DateAdd("d", -1, Fecha)

Sin mas.