Чё та не получается

An error has occurred while communicating with the " & _
"remote server."


Dim DownloadWorking As Boolean


Public Function Downloads()
Dim FileNumber As Integer


If DownloadWorking = False Then
DownloadWorking = True
Dim b() As Byte
Me.Inet1.Protocol = icHTTP
Me.Inet1.URL = Text1.Text
b() = Me.Inet1.OpenURL(Me.Inet1.URL, icByteArray)
FileNumber = FreeFile()
Open Text2.Text For Binary Access Write As #FileNumber
Put #FileNumber, , b()
Close #FileNumber
DownloadWorking = False
End If
End Function