Ho trovato una soluzione, non so se sia la migliore.
Vi dico cosa ho fatto per ottenere la data:

mm = ""
dd = ""
giorni= frmJob_PDF.DefInstance.TextBox1.Text
data = Today()
data = data.AddDays(-giorni) 'giorni = variabile col numero n di giorni da considerare

If Month(data) < 9 Then
mm = "0" & Month(data)
End If
If VB.Day(data) <= 9 Then
dd = "0" & VB.Day(data)
End If

sdata = Year(data) & mm & dd

Fatemi sapere se c'è una soluzione meno articolata.

Ciao