[b]Private Declare Function[/b] URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim a As String
[b]Public Function DownloadFile][b/](URL As String, LocalFilename As String)
URLDownloadToFile 0, URL, LocalFilename, 0, 0
End Function
[b]Private Sub check()[/b]
Dim ff As Long ' Free File
Call DownloadFile("http://www.abc.com", App.Path & "\list.txt")
ff = FreeFile
Open App.Path & "\list.txt" For Input As #ff
a = Input$(LOF(1), #ff)
Close #ff
[b]End Sub[/b]