Buscar datos en listbox mientras escribo en textbox y abrirlos subir o bajar las flechas de mi teclado

Estoy realizando un programa para liberación de material el cual debe abrir imagenes de acuerdo al producto que estoy revisando. Existen varias imagenes de una misma parte, quiero que al escribir vaya buscando y mostrando en listbox de acuerdo a lo que voy escribiendo en mi textbox.

Saludos

Éste código agrega datos al listbox de un rango dentro de una hoja de excel

Private Sub TextBox2_Change()
   If TextBox2 <> Empty Then
     CommandButton1.Enabled = True
     TextBox2 = UCase(TextBox2)
     Dim rng As Range, e
     Set lista = Range("Proveedores!C2:C69")
     With Me
     .ListBox1.Clear
     For Each i In lista.Value
       If (i <> "") * (i Like "*" & .TextBox2.Value & "*") Then
         .ListBox1.AddItem i
       End If
      Next i
     End With

   End If
End Sub

Éste codigo solo muestra en textbox lo que yo seleccione en mi listbox

Private Sub ListBox1_Click()
   TextBox2.Text = ListBox1.List(ListBox1.ListIndex)
End Sub

Éste código muestra en mi listbox todos los datos que tengo en una carpeta dentro de mis documentos, pero como puedo adecuardo mi codigo anteriror (textbox) para que busque los datos de mi folder de imagenes

Private Sub UserForm_Initialize()
   Application.Visible = False
   TextBox1.SetFocus
   Dim myfolder As String
   Dim myfile As String
   Dim j As Integer
   myfolder = "C:\Users\alejandro.diaz\Desktop\Programa\Imagenes\"
   myfile = dir(myfolder & "\*.jpg")
   Do While myfile <> ""
   ListBox1.AddItem myfile
   myfile = dir
   Loop
End Sub