Guardate che scrivere

CStr(sData)

visto che sData e' una stringa, e' ridondante e serve solo ad effettuare conversioni (automatiche) inutili.

Questo codice

dim sData as string

sData = cstr(today.year)
sData = CStr(sData) & format(Today.Month,"00")
sData = CStr(sData) & format(Today.Day,"00")

va corretto in

dim sData as string

sData = CStr(today.year)
sData = sData & format(Today.Month,"00")
sData = sData & format(Today.Day,"00")

o, se si vuole in una riga

sData = CStr(today.year) & Format(Today.Month,"00") & Format(Today.Day,"00")

Solamente il primo CStr e' formalmente necessario dato che si converte da numero a stringa ...