It would be good that you put the solution here too.
Just in case someone else need it.
It was a mistake by myself but here it is:
bDoLoop = Invoke("wininet.dll", "InternetReadFile", hInternetOpen, VarPtr(bBuffer(0)), 512, VarPtr(lNumberOfBytes))
Btw: @79137913, Don't be stupid cause you'll be on my dick!