Abrir txt e imagen al mismo tiempo

De nuevo dandote molestias ,me estoy enfrentando a nuevos problemas,del codigo Private Sub File1_Click()
Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(Replace(LCase(File1), "txt", "jpg"))
End Sub         
Funciona bien en la misma carpeta del ejecutable, pero si meto la imagen en una subcarpeta que se llama Canción, no lo encuentra y me sale error 53 en tiempo de ejecución, y bueno te pido de favor algún código para lograr ver las imágenes a partir del filelistboxy que tiene dirección app.path que es donde esta la carpeta llamada canción, y donde quiero alojar los archivos txty jpg.te dejo el código del file1 y como siempre te agradezco mucho tu apoyo, y pues solo me falta esto para finalizar, mi proyecto, saludos y abrazos.
codigo:File1.Path = App.Path & "\Canción"