Visual Basic - Me sale un fallo al crear un 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