suma y resta día

formato entrada fecha=20191017

Public Function suma_resta_dia(ByVal fecha As String, ByVal dias As Integer) As Integer
        fecha = fecha.Insert(4, "-").Insert(7, "-")
        Dim dt As DateTime = DateTime.Parse(fecha).AddDays(dias)
        Return dt.ToString("yyyyMMdd")
    End Function