Dim myurl As String, fname As String, sSourceUrl As String, slocalfile As String
Dim f As Integer, dlfail As Boolean, flist() As String
myurl = "http://someurl.com/"
fname = "verfile.txt"
sSourceUrl = myurl & slocalfile
slocalfile = app.Path & "\" & fname
If downloadfile(sSourceUrl, slocalfile) Then
f = FreeFile
Open slocalfile For Input As f
flist = Split(Input(LOF(f), #f), vbNewLine)
Close f
' compare first line of file to some version number
If flist(0) = app.major Then MsgBox "no need to upgrade": Exit Sub
' download all files in list in file
' if the last or any other line is empty will cause error
For i = 1 To UBound(flist)
If Not downloadfile(myurl & flist(i), app.Path & "\" & flist(i)) Then dlfail = True
Next
If dlfail Then MsgBox "some file failed to download correctly"
End If