Hi guys how's life?

Well, I am creating a client-server connection, sending and receiving data.

Code:
Private Sub RequestAuth_DataArrival(ByVal bytesTotal As Long)

    Dim Authorization As String
   
    ' get data from client
    RequestAuth.GetData Authorization, vbString
    If Authorization = "allowed" Then
    Call GameList
    End If

End Sub
as you can see, the code send a word to the server. I want a function to make it harder to hack, because this way I know it's very easy.

Any ideas? Thank you