Dim strURL As String
Dim intFile As Integer

IntFile = FreeFile()

strURL = "http://www.microsoft.com"

Open "c:\temp\MSsource.txt" For Output _
  As #IntFile
Write #IntFile, Inet1.OpenURL(strURL)

Close #IntFile

Public Const INTERNET_OPEN_TYPE_PRECONFIG =  0 
Public Const INTERNET_OPEN_TYPE_DIRECT =  1 
Public Const INTERNET_OPEN_TYPE_PROXY =  3 

Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Declare Function InternetOpen Lib "wininet.dll" _
  Alias "InternetOpenA" ( _
  ByVal sAgent As String, _
  ByVal lAccessType As Long, _
  ByVal sProxyName As String, _
  ByVal sProxyBypass As String, _
  ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininet.dll" _
  Alias "InternetOpenUrlA" ( _
  ByVal hOpen As Long, _
  ByVal sUrl As String, _
  ByVal sHeaders As String, _
  ByVal lLength As Long, _
  ByVal lFlags As Long, _
  ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininet.dll" ( _
  ByVal hFile As Long, _
  ByVal sBuffer As String, _
  ByVal lNumBytesToRead As Long, _
  lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininet.dll" ( _
  ByVal hInet As Long) As Integer

Private Sub Command1_Click()
    Dim hOpen As Long
    Dim hOpenUrl As Long
    Dim sUrl As String
    Dim bDoLoop As Boolean
    Dim bRet As Boolean
    Dim sReadBuffer As String *  2048 
    Dim lNumberOfBytesRead As Long
    Dim sBuffer As String
    
    sUrl = "http://www.microsoft.com"
    
    hOpen = InternetOpen(scUserAgent, _
      INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString,  0 )
    hOpenUrl = InternetOpenUrl(hOpen, _
      sUrl, vbNullString,  0 , INTERNET_FLAG_RELOAD,  0 )
    
    bDoLoop = True
    
    While bDoLoop
        sReadBuffer = vbNullString
        bRet = InternetReadFile(hOpenUrl, _
          sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
        sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
        If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
    
    Open "C:\Temp\log.txt" For Binary Access Write As # 1 
    Put # 1 , , sBuffer
    Close # 1 
    
    If hOpenUrl <>  0  Then InternetCloseHandle (hOpenUrl)
    If hOpen <>  0  Then InternetCloseHandle (hOpen)
End Sub