Ciao, ma una cosa più semplice
codice:
Private Function GetYesterdayDate() As String
   GetYesterdayDate = Format(DateAdd("d", -1, Date), "yyyymmdd")
End Function