So Basicly, Send the player 2000 STRINGS each time he logs in.. Multiplied x100 players online. That's 200,000 STRINGS sent, and those are strings that doesnt have a Limit in characters.. You need to optimize that. ``` Sub SendSwitchesAndVariables(index As Long, Optional everyone As Boolean = False) Dim buffer As clsBuffer, i As Long Set buffer = New clsBuffer buffer.WriteLong SSwitchesAndVariables For i = 1 To MAX_SWITCHES [i]'1000[/i] buffer.WriteString Switches(i) Next For i = 1 To MAX_VARIABLES [i]'1000[/i] buffer.WriteString Variables(i) Next ```