Aqui te pongo un ejemplo de como crear una carpeta dentro del directorio donde tienes el proyecto
Dim nombre As String
nombre = Text1.text
MkDir ("" & App.Path & "" & nombre)
Esto funciona asi, pones un textbox y un CommandButton, en el código del CommandButton escribes el código este, y en el TextBox el nombre de la carpeta que quieres hacer.
Espero que esto te sirva.
Saludos!
