codice:
Dim d As DateTime

d = DateTime.Now

Console.WriteLine(d.ToString("yyyyMMdd"))
Per altri dubbi del genere, cerca nella guida di VisualStudio l'argomento dal titolo "Stringhe di formato di data e ora" e guardati sia le stringhe di formato standard che quelle personalizzate.