VBAでフォルダを新規作成して名前を次の月にしたい

Question

前提・実現したいこと

VBAにてフォルダを新規作成し、新規作成したフォルダ名をyyyy年mm月の形式にし、
mmのところを次の月にしたいです（例：現在であれば"2021年5月"というフォルダ名にしたいです。

発生している問題・エラーメッセージ

現在の月しかとれず困っています

該当のソースコード

    Dim objFso As Object
    Set objFso = CreateObject("Scripting.FileSystemObject")

    If objFso.FolderExists(ThisWorkbook.Path & "\" & Format(Date, "yyyy年mm月") & "度 売上") Then
    Else
        objFso.CreateFolder (ThisWorkbook.Path & "\" & Format(Date, "yyyy年mm月") & "度 売上")
    End If
    Set objFso = Nothing

試したこと

dateserialなどを試しましたが、因数は省略できませんとのエラーがでました。
dateserialを使用したいというわけでありません。

Answer 1

DateAdd関数を使います。