Question on server code. clsbuffer!!

[abhi2011]

Hey guys. Can anyone explain to me what this piece of code does? And is there a limit to the size of string we can send to the server from client?

```
Public Sub WriteBytes(ByRef nByte() As Byte)
Dim nLength As Long

    nLength = (UBound(nByte) - LBound(nByte)) + 1

    If WriteHead + nLength - 1 > BufferSize Then Allocate nLength

    CopyMemory buffer(WriteHead), nByte(0), nLength
    WriteHead = WriteHead + nLength
End Sub
```
I want to knoe because I am writing something for a tutorial. And when the packet data of 2 strings reach the client it will highlight this piece of code!

```
nLength = (UBound(nByte) - LBound(nByte)) + 1
```It is in clsbuffer!
Thanks!