Private Sub Form_Load()
    With Inet
        sData = ""
 
        .Tag = "Loading"
        .Execute path, "POST", , "Content-Type:" & _
          "application/x-www-form-urlencoded"
 
        Do
            DoEvents
        Loop Until .Tag <> "Loading"
 
        If .Tag = "Ready" Then
            MsgBox sData
        ElseIf .Tag = "Error" Then
            MsgBox "Empfang fehlgeschlagen"
        End If
    End With
End Sub
 
Private Sub Inet_StateChanged(ByVal State As Integer)
    Dim vData As Variant
    Dim bReady As Boolean
 
    With Inet
        Select Case State
            Case icError
                .Tag = "Error"
            Case icResponseCompleted
                vData = .GetChunk(1024, icString)
                DoEvents
 
                Do
                    sData = sData & vData
                    vData = .GetChunk(1024, icString)
                    DoEvents
 
                    If Len(vData) = 0 Then bReady = True
                Loop Until bReady
 
                .Tag = "Ready"
        End Select
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set frmMain = Nothing
End Sub

"Live your life with arms wide open" - Natasha Bedingfield "Unwritten"