icecube_HT
Secondo me la richiesta e' semplice e necessita di una risposta semplice:
Ora non per fare polemiche, ma ritengo che quando si risponde ad una richiesta d'intervento sia doveroso scrivere del codice al meglio delle proprie possibilità; ciò anche per tracciare un percorso di programmazione che consenta di apprendere nuove tecniche, come l'uso della potente libreria esterna FSO.
Poi l'uso di: On Error Resume Next è deprecabile, perchè è un'istruzione "alla spera in Dio".
Quindi se proprio si vul restare nell'uso di comandi ex DOS, almeno si usi:
codice:
Private Sub Command1_Click()
    
    ChDir App.Path
    On Error GoTo ErrHandler
   
    MkDir "pippo"

ErrHandler:
If Err.Number <> 0 Then
    MsgBox "Errore: " & Err.Number & " " & Err.Description & Chr(13) _
    & "La cartella esiste già!", vbCritical, "Prova creazione cartella"
    Err.Clear
    Exit Sub
End If

End Sub