Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Job.Download(link1) '' I repeat the line, It is the error
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal,"folder/rss.xml",False)
File.Copy2(Job.GetInputStream,out)
out.Close
Job.Release
End If
ProgressDialogHide
End Sub