HOW TO ADD DAYS TO CURRENT DATE IN VB.NET

HOW TO ADD DAYS TO CURRENT DATE IN VB.NET
=======================================================================================

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Double
Dim dati As Date = Now 'the current date and time
Dim da As Date
n = dati.ToOADate ' translate into double-precision format
n = n + 100 ' add 100 days (the integer part is the days)
da = Date.FromOADate(n) ' translate the OA style into .NET style()
MessageBox.Show(da)

End Sub

=====================================================================================