Buscar item de listbox con textbox desde una carpeta en mis documentos

Estoy generando un programa para buscar archivos de un listbox con lo que escribo en un textbox. Estoy cargando al listbox el nombre de imagenes desde una carpeta que tengo situada en mi escritorio.

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\Liberación Ciosa\Imagenes\"
    myfile = dir(myfolder & "\*.jpg")
    Do While myfile <> ""
        ListBox1.AddItem myfile
    myfile = dir
    Loop
End Sub

He buscado en la red y hay muchos ejemplos para hacer lo que necesito pero jalan los datos de una hoja de excel(no de mis documentos). He tratado de adecuarlo pero no he logrado conseguirlo.

¿Alguien tiene algún ejemplo de algo parecido que me pueda compartir para poder seguir trabajando con mi programa?