Visual Basic para Aplicaciones - Validar si ya existe una carpeta o archivo

Hola espero que alguien pueda ayudarme mi problema es que creo una carpeta en vb con mkdir pero si la carpeta ya existe me genera un error, necesito saber como verificar antes del la instruccion mkdir si esa carpeta ya existe para saltarme esa instruccion, pero no se como
Espero que alguien pueda ayudarme, Gracias

Private Sub Command1_Click()
Dim NombreCarpeta, LaRuta As String
LaRuta = InputBox("Ingrese la ruta donde se creará la carpeta. Ej. C:\windows\", "Ruta de la carpeta")
NombreCarpeta = InputBox("Ingrese nombre de la carpeta a crear", "Nombre de carpeta")
If Dir(Trim(LaRuta) + Trim(NombreCarpeta), vbDirectory) <> "" Then
MsgBox "La carpeta que intenta crear en la ruta " + StrConv(LaRuta, vbProperCase) + " ya existe"
Exit Sub
ElseIf Dir(Trim(LaRuta) + Trim(NombreCarpeta), vbDirectory) = "" Then
MkDir (LaRuta + NombreCarpeta)
End If
End Sub

Si tienes alguna duda escribeme

Hola...

Otra forma que propongo es por medio del FileSystemObject, este es un objeto contenido dentro de una librería que debes agregar en tu proyecto como referencia: "Microsoft Scripting Runtime"

Luego para crear la variable:
dim objeto as FileSystemObject

Para utilizarla:
set objeto = new FileSystemObject
if objeto.FolderExists(Carpeta) then
msgbox "La carpeta " & Carpeta & " existe"
else
msgbox "La carpeta " & Carpeta & " no existe"
end if

if objeto.FileExists(Archivo) then
msgbox "El archivo " & Archivo& " existe"
else
msgbox "El archivo " & Archivo& " no existe"
end if