Dim ValiditeChoisie As Int = 6
Dim DateDeCongelation As String = "1/9/2015" ' or a some other valid format
Dim dcalc As Long
dcalc = DateTime.Add(DateTime.DateParse(DateDeCongelation), 0, ValiditeChoisie, 0)
Dim ExpiryDate As String = DateTime.Date(dcalc)
Log(ExpiryDate)