Dimenticavo, al posto di
codice:
    MsgBox Input$(LOF(fileId), fileId)
metti
codice:
ActiveCell.Value = Input$(LOF(fileId), fileId)
; al posto di ActiveCell ovviamente puoi mettere una qualunque espressione di tipo Range che rappresenti una cella.
Allo stesso modo al posto di
codice:
http://www.mitalia.net/irfanpaint/downcount.txt
metti l'indirizzo del file da scaricare.