Visual Basic - crear carpeta

Gracias por su atencion.
¿Como puedo crear una carpeta en el registro mediante un boton en un formulario?

El boton tiene que mirar si la carpeta existe ya con el mismo nombre, si no existe, la crea y sino nos avisara que ya existe, como podemos hacer todo esto??. GRacias

Suponiendo....
Dim NomCarpeta As String
Private Sub Form_Load()
NomCarpeta = "C:\Miguel"
End Sub
Private Sub Command1_Click()
Dim Directorio
If Dir(NomCarpeta, vbDirectory + vbNormal) = "" Then
If MsgBox("Carpeta No Existente...Esta Seguro de Crearla ?", vbQuestion + vbDefaultButton1 + vbYesNo, "Miguel") = vbYes Then
MkDir NomCarpeta
MsgBox "Carpeta Creada", vbInformation
End If
Else
MsgBox "Carpeta Existente", vbInformation
End If
End Sub