日付をyyyymmddの書式に変換する

Format()を使う

    Dim today_yyyymmdd
    today_yyyymmdd = Format(Date, "yyyymmdd")

ネタ元