Create New Directory

'Replace c:\mydir with the directory you want to create

Private Sub Form_Load()
MkDir "c:\mydir"
End Sub