E' meglio scrivere

Dim sData As String
sData = Today.Year.ToString("0000") & Today.Month.ToString("00") & Today.Day.ToString("00")