Private Sub Command3_Click()

Dim fs As FileSystemObject
Set fs = New Scripting.FileSystemObject
fs.CreateFolder App.Path & "\MioFolder"

End Sub
mi dice ke il tipo definito dall'utnte non e' definito