history, dim msg as string

[mrnew]

Hi, can sombody help me out here, i want the server to store the last 10 events thats taken place in a game

when i check the history on the client, the retrive sub is called.
i need to open a file and store it all as msg
which will then send back to the server, and the displayhistory sub
should be fine.

another problem is im gonna need another sub to write history to a file, and to make sure thiers no more than 10 events/lines stored.

---------client

Public Sub displayHistory(Msg As String)
 
With frmMain.txthistory
  .Text = .Text & Msg
End With
 
End Sub

--------server side, unfinished

Public Sub retrievehistory(Index As Integer)
On Error Resume Next
Dim Msg As String
 
frmMain.wsk(Index).SendData Chr$(2) & Msg & vbCrLf & Chr$(0)
DoEvents
 
End Sub