Private Sub Inet2_StateChanged(ByVal State As Integer)
 
    Dim vData As Variant
    Dim sData As String
    Dim bReady As Boolean
    Dim ff As Integer
 
    On Error Resume Next
 
    With Inet2
 
        Select Case State
 
            Case icError:
 
                'Es ist ein Fehler aufgetreten
                .Tag = "Error"
 
            Case icResponseCompleted:
 
                'Segment holen
                vData = .GetChunk(1024, icString)
 
                DoEvents
 
                Do
 
                    sData = sData & vData
 
                    'Nächstes Segment holen
                    vData = .GetChunk(1024, icString)
 
                    DoEvents
 
                    If Len(vData) = 0 Then bReady = True
 
                Loop Until bReady
 
                .Tag = "Ready"
 
        End Select
 
    End With
 
    ff = FreeFile
 
    Kill App.Path & "\Downloads\" & DLFileName
 
    Open App.Path & "\Downloads\" & DLFileName For Output As #ff
 
        Print #ff, sData
 
    Close #ff
 
    Me.Caption = "Fertig"
 
End Sub