Public MESSAGES AS New Collection
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Message As String
    Dim i As Integer
 
    Winsock1.GetData Message
 
    If Message <> "" Then
            RXMESSAGE = "Message erhalten"
    End If
 
    message2 = Message
 
    If Message = "User ist nicht aktiv" Then
              message2 = "Nachricht konnte nicht gesendet werden. Der User: " & _
                                       Chr(34) & MTO & Chr(34) &  _
                                       " ist zur Zeit nicht erreichbar! " & _
                                       "    [Private Message from the Server]"
    Else
              'Add the Message ....
              If MESSAGES.Count = 16 Then MESSAGES.Remove 16
              MESSAGES.ADD Item:= Message2, Before:= 1
    End If
 
    sMsg = message2
 
End Sub