#3 fails if (Size mod 100)=0

[Anonymous]

the lines

If (InternetWriteFile(lRequest, Data(0), Size Mod 100,
Written) = 0) Then
Err.Raise Err.LastDllError, , "InternetWriteFile failed"
End If

always fail if the size is a multiple of 100. if (size
mod 100)=0, internetwritefile will fail, because you
tell the function to write zero bytes.