dovrebbe funzionare anche il solo:

Dim Data As String = Today.ToString("yyyyMMdd")