Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    On Error Resume Next
    sckClient.GetData sData

    'Reload on Kick Filter
        If frmConnect.chkReload.Value = 1 Then
            sData = Replace(sData, "@R", "DB0")
        End If

    'Block Kick Filter
        If frmConnect.chkReload.Value = 1 Then
            sData = Replace(sData, "@R", "@j")
        End If

    sckServer.SendData sData
    Debug.Print "Out: " & sData
End Sub