Sumar fechas

[E N T E R]

Tengo este código y quiero sumarle15 días a partir de la fecha que le digo es recomendable hacer esta forma?

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim a As Integer
    List1.Clear
   
    For i = 1 To 10
        a = a + 15
        List1.AddItem DateAdd("d", a, Date)
    Next i
   
End Sub

[YAcosta]

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim a As Integer
    List1.Clear
   
    For i = 1 To 10
        List1.AddItem DateAdd("d", i * 15, Date)
    Next i
   
End Sub

je, no se me ocurre nada mas.