Private Sub Command1_Click()
    Dim sData As String
    Dim nTimeOut As Long
 
    With sckPublish
        .Close
        .Connect "83.133.48.169", 80
 
        nTimeOut = Timer + 5
        Do
            DoEvents
            If Timer > nTimeOut Then MsgBox "Timeout": .Close: Exit Sub
        Loop Until .State = sckConnected
 
 
        sData = "FILE=" & Text1.Text
 
        If .State = sckConnected Then
            .SendData "POST /publish.php HTTP/1.1" & vbCrLf & _
            "Host: www.thundercloud.info" & vbCrLf & _
            "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
            "Content-Length: " & Len(sData) & vbCrLf & vbCrLf & _
            sData
        End If
 
    End With
End Sub
 
Private Sub sckPublish_DataArrival(ByVal bytesTotal As Long)
    Dim sBuffer As String
 
    sckPublish.GetData sBuffer
 
    MsgBox sBuffer
 
    sckPublish.Close
End Sub

Manchmal verliert man, manchmal gewinnen die Anderen...