Foro Excel

Tengo estos codigo, para crear una carpeta.
Pero me gustaria que me avisara si la carpeta ya existe, por ejemplo, " la carpeta ya Existe"
Gracias

.............................................................................................................
Sub GenerarCarpeta()
Dim Path As String, NombreCarpeta As String
Path = "C:\"
NombreCarpeta = "\Nueva"
If Dir(Path, vbDirectory) <> "" Then
If Dir(Path & NombreCarpeta, vbDirectory) = "" Then MkDir Path & NombreCarpeta
MsgBox "Carpeta creada Exitosamente", vbInformation, ""
End If
End Sub
--------------------------------------------------------------------------------------------------------
Sub CrearCarpeta()
CreaCarpeta "C:\", "Archivos"
End Sub

Sub CreaCarpeta(Ruta As String, NomCarpeta As String)
'Verificar si la carpeta existe.
If Dir(Ruta, vbDirectory + vbHidden) <> "" Then
'Comprueba que la carpeta no exista para crear el directorio.
If Dir(Ruta & "\" & NomCarpeta, vbDirectory + vbHidden) = "" Then _
MkDir Ruta & "\" & NomCarpeta
MsgBox "Carpeta creada Exitosamente", vbInformation, ""
End If
End Sub

Hola, probá así:
Sub CrearCarpeta()
CreaCarpeta "C:\", "Archivos"
End Sub

Sub CreaCarpeta(Ruta As String, NomCarpeta As String)
If Dir(Ruta & "\" & NomCarpeta, vbDirectory + vbHidden) = "" Then
MkDir Ruta & "\" & NomCarpeta
MsgBox "Carpeta creada Exitosamente", vbInformation, ""
Else
MsgBox "Ya existe esa carpeta", 64, ""
End If
End Sub

Perfecto.
Gracias, otra vez...