HandleDataSub(CMsgPlayerRevival) = GetAddress(AddressOf HandlePlayerRevival)

Private Sub Handle*(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()


End Sub

Sub SendPlayerInfoRequest(ByVal Name As String)
Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
   
    Buffer.PreAllocate Len(Name) + 8   ' PreAllocate is not needed. If you can figure out the size of the packet before hand, do it. It will increase performance.
    Buffer.WriteInteger SMsgPlayerInfoRequest   'Our first long is the packet header. This is used so the handleData knows how to handle it.
    Buffer.WriteString Name   ' This is just some data for this packet
   
    SendData Buffer.ToArray()   ' Sends our data
End Sub

Private Sub HandlePlayerInfoRequest(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Name As String
Dim n As Long, i As Long

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    Name = Buffer.ReadString
   
    ' Other stuff here
End sub