Remote Message Box Popup

[GoldenZero]

im having little piss of problems with my code can someone tell me whats wrong with it ?

Visual Basic 6.0

In Client

Private Sub cmdSend_Click()
Dim Data10
Data10 = txtNick.Text & ": " & txtMessage.Text
Winsock.SendData Data10
End Sub

In Server

Case "Data10"
Winsock(Index).GetData incommingData, vbString
If incommingData = "Data10" Then
Data10 = MsgBox Date10, ("Message From Master")
    End If
    Exit Sub

If anyone can fix it up and tlel me what was wrong it would help me a lot