Scusate ma non riuscivo a modificare il messaggio di sopra.
Prima il programma non dava problemi con il codice adesso non ho modificato niente e mi da un errore:
	codice:
	A first chance exception of type 'System.IndexOutOfRangeException' occurred in Ultimate.exe Indice oltre i limiti della matrice.
 
Codice(ho provato a toglierlo e funziona il programma, ma senza questo codice il programma è inutile):
                
	codice:
	Dim words As String() = s.Split(New Char() {","c})
                Dim word As String
                For Each word In words
                    filename = words(0)
                    link = words(1)
                Next
                downloadgo(filename, link)