winsock.SendData "RETR " & msgID & vbNewLine

      For i = 0 To UBound(Mails)
         popTempFile = Mails(i)
         winsock.SendData "RETR " & Mails(i) & vbNewLine
         Do While InStr(strResponse, vbNewLine & "." & vbNewLine) = 0
            DoEvents
         Loop
         lstProtocoll.List(ListPos) = "Nachricht " & Mails(i) & " verarbeitet"
         ListPos = ListPos + 1
      Next
=======================================
 
' Daten werden empfangen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim F As Integer
  Dim strData As String
  Winsock1.GetData strData, vbString
  If Not Left$(strData, 3) Like "+OK" Then
    ' Daten in -Block in Datei schreiben
    If popTempFile <> "" Then
      F = FreeFile
      Open popTempFile For Append As #F
      Print #F, Replace(strData, vbNewLine & ".", vbNewLine);
      Close #F
    End If
    strMail = strMail & strData
  End If
  If popTempFile <> "" Then
    strResponse = strLastResponse & strData
    strLastResponse = strData
  Else
    strResponse = strResponse & strData
  End If
End Sub

Nur ein toter Bug ist ein guter Bug!