Med koden nedan tar mitt chatprogram emot alla meddelanden som skickas mellan användarna. Nu skulle jag enkelt vilja ta ut det meddelandet som skickas till mig och lägga detta i en variabel och det har jag gjort och har kallat den koll. När jag kör programmet blir det error när den kommer dit, varför? Finns det en annan lösning att få in meddelandet jag nyss fick i en variabel?

Public Sub ReceiveMessage()
  Dim SourceIP As Long
  Dim TargetIP As Long
  Dim NumMessagesWaiting As Long
  Dim Msg As DirectPlayMessage
  Dim koll As String
  
  NumMessagesWaiting = DP.GetMessageCount(PlayerIDNum) 'the number of waiting messages
  
  Do While NumMessagesWaiting > 0
    Set Msg = DP.Receive(SourceIP, TargetIP, DPRECEIVE_ALL)
    
    Form1.List3.AddItem Msg.ReadString
    koll = Msg.ReadString
    
    For i = 1 To 10
        If koll = "#i#" Then Form1.Label8(i).Caption = Form1.Label8(i).Caption + 1
    Next i
    
    'number of waiting messages decrement
    NumMessagesWaiting = NumMessagesWaiting - 1
  Loop
  
  

End Sub