Downloading URL code

[Daok]

Here is what I changed from the API code that worked in vb6.0 but it return always Nothing.

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Integer, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Integer) As Integer
    Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Integer, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Integer, ByVal lFlags As Integer, ByVal lContext As Integer) As Integer
    Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Integer, ByVal sBuffer As String, ByVal lNumBytesToRead As Integer, ByRef lNumberOfBytesRead As Integer) As Integer
    Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByRef hInet As Integer) As Integer
 
    Public Const IF_FROM_CACHE = &H1000000
    Public Const IF_MAKE_PERSISTENT = &H2000000
    Public Const IF_NO_CACHE_WRITE = &H4000000
 
    Private Const BUFFER_LEN = 256
 
    Public Function GetUrlSource(ByVal sURL As String) As String
        Dim sBuffer As String, iResult As Integer, sData As String
        Dim hInternet As Integer, hSession As Integer, lReturn As Integer
 
        'get the handle of the current internet connection
        hSession = InternetOpen("Microsoft Internet Explorer", 1, Nothing, Nothing, 0)
        'get the handle of the url
        If hSession Then
            hInternet = InternetOpenUrl(hSession, sURL, Nothing, 0, IF_NO_CACHE_WRITE, 0)
        End If
        'if we have the handle, then start reading the web page
        If hInternet Then
            'get the first chunk & buffer it.
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sBuffer
            'if there's more data then keep reading it into the buffer
            Do While lReturn <> 0
                iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
                sData = sData + Mid(sBuffer, 1, lReturn)
            Loop
        End If
 
        'close the URL
        iResult = InternetCloseHandle(hInternet)
 
        GetUrlSource = sData
    End Function

What do I convert bad?