Es una cosa super sencilla:

Tan solo agrega un Button entra para escribir el codigo del Button
Pega esto:
Dim anjes As Object
anjes = CreateObject(“scripting.filesystemobject”)
anjes.createfolder(“C:UsersUserDesktopNewfolder”)


MsgBox(“Su Folder Ha Sido Creada Exitosamente”, vbInformation, “tunombreaqui”)

Esto de arriba el MsgBox si quieren tan solo le dira cuando cree la carpeta que ha sido creado exitosamente

Saludos