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

Obtener el día anterior; fecha

Dim diaAnterior As DateTime = Now.ToString("dd-MM-yyyy")
        diaAnterior = diaAnterior.AddDays(-1)
        MessageBox.Show(diaAnterior.ToString("dd-MM-yyyy"))

Ejemplo 2
Dim diaAnterior As String = (Convert.ToDateTime(Now.ToString("dd-MM-yyyy")).AddDays(-1)).ToString("dd-MM-yyyy")

Ejemplo 3
Dim diaAnterior As String = Now.AddDays(-1).ToString("dd-MM-yyyy")

Ejemplo 4
Dim ayer As String = DateTime.Today.AddDays(-1).ToString("dd-MM-yyyy")