Private Sub Command1_Click()
Dim url As String
 Dim extension As String
 url = "http://jedno.weebly.com/uploads/4/5/6/0/45602969/data.txt"
 extension = ".txt"
 Call skiniFajl(url, extension)
 End Sub
Public Function skiniFajl(url As String, extension As String)
     On Error GoTo Error
     Dim strURL As String
     Dim bData() As Byte
     Dim intFile As Integer
     Dim icByteArray
     
     strURL = url
     intFile = FreeFile()
     bData() = Inet1.OpenURL(strURL, icByteArray)
     Open "C:\temp." & extension For Binary Access Write As #intFile
         Put #intFile, , bData()
     Close #intFile
     Exit Function
Error:
     End
 End Function