Visual Basic - Buscar archivos jpg con textbox, boton y listbox

Option Explicit

' Botón para comenzar a buscar

'''''''''''''''''''''''''''''''''''''''''''''

Private Sub CommandButton1_Click()

    If TextBox1.Text <> "" Then

        If Len(Dir(Trim(TextBox1.Text))) Then

            ' Buscará todos los archivos de Office

            Call Buscar(TextBox1.Text, msoFileTypeOfficeFiles)

        Else

            MsgBox "El directorio no es correcto", vbExclamation, "error"

        End If

    Else

        MsgBox "Debe ingresar un directorio en el textbox", vbExclamation

    End If

End Sub

' función para buscar los documentos de Office

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Buscar( _

    Path As String, _

    Tipo As MsoFileType)

On Error GoTo ErrorSub

    Dim i As Long

    With Application

    ' desactualiza la actualización para que sea mas rápido

        .ScreenUpdating = False

        .DisplayAlerts = False

        .EnableEvents = False

    End With

' propiedades del objeto FileSearch

    With Application.FileSearch

        ' nueva búsqueda

        .NewSearch

         ' path inicial de búsqueda

        .LookIn = "C:\Users\alejandro.diaz\Pictures\"

        ' el tipo de documento Office, word, otros : _

        ver el valor de las constantes

        .FileType = msoFileTypeAllFiles

        .SearchSubFolders = True ' para buscar en sub carpetas _

        en este caso solo busca en un solo nivel

        ListBox1.Clear

        ' ejecuta la búsqueda

        If .Execute > 0 Then

           ' recorre la colección de archivos ( si es que hay )

           For i = 1 To .FoundFiles.Count ' cantidad de archivos

               ListBox1.AddItem .FoundFiles(i)

           Next

        End If

    End With

    ' vuelve a habilitar la actualización del Excel

    With Application

        .ScreenUpdating = True

        .DisplayAlerts = True

        .EnableEvents = True

    End With

' error

Exit Sub

ErrorSub:

    MsgBox Err.Description, vbCritical, "error: " & Err.Number

End Sub

Private Sub Command1_Click()

Dim cont As Double

Dim fs As New FileSystemObject

Dim temporal As Folder

Dim Archivo As File

Dim nCarpetas, F, i As Integer

Dim TEXTO, motivo As String

On Error Resume Next

Dim filename As String

cont = 0

filename = ""

 F = 1

 i = 2

Set temporal = fs.GetFolder(Dir1.Path)     '("c:/cias/Rl/")

nCarpetas = temporal.SubFolders.Count

Screen.MousePointer = vbHourglass

For Each Archivo In temporal.Files  ' por cada archivo de la carpeta......

cont = cont + 1

Label1.Caption = cont

'Para ver si grabo Linea a Linea o Archivo a Archivos

                    MsgBox Archivo

                    MsgBox Archivo.Type

                    MsgBox Archivo.Name

                    MsgBox Archivo.Attributes

                    MsgBox Archivo.Drive

                    MsgBox Archivo.ParentFolder

                    MsgBox Archivo.ShortName

                    MsgBox Archivo.ShortPath

                    MsgBox Mid(Archivo.Name, Len(Archivo.Name) - 3, 3) ' creo que este muestra la extension en archivos de ext de 3 

 Next Archivo

'*

    'DoEvents

Screen.MousePointer = vbDefault

Label1.Caption = cont & " Archivos Procesados·"

MsgBox "Proceso Completado"

End Sub