Wininet, hvad går det galt?

hvad går der lige glat her. Jeg kan ikke få wininet´s HttpQueryInfo kommando til at virke. Den returnere false("0"), hvor den gerne skulle returnere true("1") og lidt info i bufferen.

Min kode:

Private Declare Function HttpQueryInfo Lib "wininet" Alias "HttpQueryInfoA" (ByVal hHttpRequest As String, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Long
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Dim Cancel_Download As Long

Function DownloadString(UrlFile As String) As String
Dim UrlInternetOpen As Long
Dim UrlInternetOpenUrl As Long
Dim UrlBuffer As String * 2048
Dim HeaderBuffer As String * 2048
Dim HeaderInfo As Long
Dim UrlBytes As Long
Dim UrlComplete As String
Dim CHAR As String * 2048
Dim temp

Cancel_Download = 0
  UrlInternetOpen = InternetOpen("Download String", 1, vbNullString, vbNullString, 0)
  If UrlInternetOpen Then
    UrlInternetOpenUrl = InternetOpenUrl(UrlInternetOpen, UrlFile, vbNullString, 0, INTERNET_FLAG_NO_AUTO_REDIRECT, 0)
      If UrlInternetOpenUrl Then
          HeaderBuffer = "Location"
          HeaderInfo = HttpQueryInfo(UrlInternetOpenUrl, HTTP_QUERY_RAW_HEADERS_CRLF, HeaderBuffer, 2048, 0)
          MsgBox (HeaderInfo)
          MsgBox (HeaderBuffer)
          InternetCloseHandle HeaderInfo
        End If
        InternetCloseHandle UrlInternetOpenUrl
  End If
  InternetCloseHandle UrlInternetOpen

End Function

Håber der er en der kan hjælpe

Mvh
Royal12