Visual Basic - Me da un fallo al crear directorio

Hola, miren, tengo este fallo: Al crear una carpeta en una ruta expecifica, me lo crea perfectamente, pero si quiero crear en la misma ruta de antes un directorio con el mismo nombre, me da error y no se que es, miren les dejo el codigo y el fallo me sale ne la linea donde me sale el fallo tiene un comentario. Gracias.

Private Sub cmdnuevo_Click()
Dim myfile As String
'MkDir Dir1.Path & "\"
myfile = Dir("" & App.Path & "\" & Me.txtdirectorio & "", vbDirectory)
If myfile = "" Then
'Crea directorio
FileSystem.MkDir ("" & Dir1.Path & "\" & Me.txtdirectorio & "") ' me falla
MsgBox "Directorio creado"
Else
MsgBox "El Directorio ya Existe"
End If
End Sub

Hola Jose:
revisé el código y sucede que en la cuarta linea chequeas que el directorio no exista en App.Path (donde está tu exe) y luego lo quieres crear en el directorio que le indicas en el DirListBox.
Para ser más claro.... si quieres crear un directorio en Dir1.Path & \"\\\" & Me.txtdirectorio ....... es allí donde tienes que verificar que exista.... y no en el path de tu aplicación....

Un abrazo
Dante

Private Sub cmdnuevo_Click()
Dim myfile As String
\'MkDir Dir1.Path & \"\\\"
myfile = Dir(\"\" & Dir1.Path & \"\\\" & Me.txtdirectorio & \"\", vbDirectory) \'cambié app.path por dir1.path
If myfile = \"\" Then
\'Crea directorio
FileSystem.MkDir (\"\" & Dir1.Path & \"\\\" & Me.txtdirectorio & \"\") \' me falla
MsgBox \"Directorio creado\"
Else
MsgBox \"El Directorio ya Existe\"
End If
End Sub