If Dir(App.Path & "\" & Text1.Text, vbFolder) Then MsgBox "La carpeta existe, verifique en la ruta " & App.Path & "\" & Text1.Text & "1" 'Salimos del procedimiento Exit Sub End If