I'm having a problem
the code below creates a blank file I know the Inet control is donloading but it is not writing to the file any tips

Private Sub Form_Load()
frmServer.Caption = Inet1.ResponseCode
Dim FileNumber
Dim strImported As String
FileNumber = FreeFile
Open "EriksQsave.txt" For Input As #FileNumber ' Open file.
Do While Not EOF(FileNumber) ' Loop until end of file.
Line Input #FileNumber, strImported ' Get line.
'Pass line to inet to download. I don't know how to use inet, I've never used it.
'strImported now contains the URL to download from.
IntFileNum = FreeFile()
Open "c:\news\1stdownload.htm" For Output As IntFileNum
Print IntFileNum; Inet1.OpenURL(strImported)
Close IntFileNum
Loop
End Sub