' Server Daten erreichen uns
Public Sub DownSock_DataArrival(ByVal bytestotal As Long)
  Dim tmpdata As String
  On Error Resume Next
 
  ' Falls keine Bytes oder lokale Datei nicht
  ' geöffnet, Prozedur verlassen
  If bytestotal = 0 Or FFile = -1 Then Exit Sub
  If DownSock.State = 8 Then Exit Sub
 
  Debug.Print "Bytes arrival: " & bytestotal
 
  ' Bisher empfangene Bytes aufaddieren
 overmittedbytes = overmittedbytes + bytestotal
 
 
  ' Daten an die lokal geöffnete Datei "anhängen"
  DownSock.GetData tmpdata, bytestotal
  'Put #FFile, , tmpdata
   Call write_file(tmpdata)
 
 
End Sub