Как тестировать программу для работы в Internet?

Option Explicit
Public s As String
Public lLenthFile As Long
Public intFile As Long


Private Sub Command1_Click()

Inet1.URL = txtUrl.Text

MsgBox "inet1.url: " & Inet1.URL

'Inet1.Execute , "HEAD"
Inet1.Execute , "GET"

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData() As Byte
'задержка, пока запрос не выполнен
Do
    If Not Inet1.StillExecuting Then Exit Do
    DoEvents
Loop
lLenthFile = CLng(Inet1.GetHeader("Content-length")) 'получаем размер файла
'и остальные его (файла атрибуты)
s = "Date: " & Inet1.GetHeader("Date") & vbCrLf
s = s & "MIME-version: " & Inet1.GetHeader("MIME-version") & vbCrLf
s = s & "Server: " & Inet1.GetHeader("Server") & vbCrLf
s = s & "Content-length: " & CStr(lLenthFile) & vbCrLf
s = s & "Content-type: " & Inet1.GetHeader("Content-type") & vbCrLf
s = s & "Last-modified: " & Inet1.GetHeader("Last-modified") & vbCrLf
txtHead.Text = s

Select Case State
    'здесь можно обрабатывать другие события
    Case icResponseCompleted '12
        'открываем файл для записи принимаемых данных
        intFile = FreeFile
        Open txtFileName.Text For Binary Access Write As #intFile
        'принимаем первую порцию данных
        vtData = Inet1.GetChunk(1024, icByteArray)
        Do While LenB(CStr(vtData)) > 0
            Put #intFile, , vtData
            'следующая порция данных
            vtData = Inet1.GetChunk(1024, icByteArray)
            UpdateStatus Seek(1)
        Loop
        Put #intFile, , vtData
        Close #intFile
End Select
Label1.Caption = GetConnectionState(State)
End Sub
Sub UpdateStatus(lRec As Long)
Dim i As Long

i = lRec * 100 / lLenthFile
Label1.Caption = "Принято: " & i & "%"
DoEvents
End Sub
Private Function GetConnectionState(State) As String
    Select Case State
        Case icNone '0
            GetConnectionState = "Информация о состоянии не доступна"
        Case icResolvingHost '1
            GetConnectionState = "Поиск IP адреса сервера"
        Case icHostResolved '2
            GetConnectionState = "IP адрес сервера найден"
        Case icConnecting '3
            GetConnectionState = "Соединение с сервером"
        Case icConnected '4
            GetConnectionState = "Соединился с сервером"
        Case icRequesting '5
            GetConnectionState = "Запрос информации с сервера"
        Case icRequestSent '6
            GetConnectionState = "Запрос на сервер успешно отправлен"
        Case icReceivingResponse '7
            GetConnectionState = "Получение ответа от сервера"
        Case icResponseReceived '8
            GetConnectionState = "Ответ от сервера был успешно принят"
        Case icDisconnecting '9
            GetConnectionState = "Отключение от сервера"
        Case icDisconnected '10
            GetConnectionState = "Отключение от сервера выполнено"
        Case icError '11
            GetConnectionState = "Произошла ошибка во время сеанса связи с сервером"
        Case icResponseCompleted '12
            GetConnectionState = "Запрос выполнен, все данные получены"
    End Select

End Function
Private Sub cmdExit_Click()
    Close #intFile
    Unload Form1
End Sub