Visual Basic - Crear directorios

Estas intrucciones son correctas para crear directorios.

GRacias.

Dim oDoc, fs As Object
Set fs = CreateObject(\"Scripting.FileSystemObject\")
fs.CreateFolder \"C:\\MIS DOCUMENTOS\" & CARPETA

Puedes hacerlo con esto:
Private Sub Command2_Click()
MkDir "c:\Mis Documentos\Hola"
End Sub

tienes que agregar referencias al Scrrun.dll -- Microsoft Scripting runtime
Dim FSO As New FileSystemObject

Private Sub CreaCarpeta()
If Not FSO.FolderExists("c:\respaldo") Then
MsgBox "No existe la carpeta respaldo" + Chr(13) + "sera creada en " vbOKOnly, "Respaldo !!!"
FSO.CreateFolder ("c:\respaldo")
End If
End Sub