Creazione cartelle col vb

[picdav]

Come posso fare per far in modo che alla pressione di un tasto, se esiste una cartellina non fà nulla e se non esiste me la crea??

[vonkranz]

   If Dir("NomeCartella", vbDirectory) = "" Then
      MkDir "NomeCartella"
   End If

[picdav]

Grazie mille, sei stato davvero gentilissimo!