come posso fare a prendere solo il nome

tu hai già il percorso completo, tipo c:\programmi\immagine.jpg?

Se si, ti basta usare le funzioni per il taglio e cucito, tipo:

'presupponi che nomefile valga "c:\programmi\immagine.jpg"
nomefile = Replace(nomefile, "/", "\")
nomefile = Mid(nomefile, InstrRev(nomefile, "\")+1)

'fatto! nomefile contiene la stringa "immagine.jpg"