Private Sub wsClient_onDataArrival(ByVal Data() As Byte, ByVal totBytes As _
  Integer) Handles wsClient.onDataArrival
 
        Dim Buffer As String = wsClient.BytestoString(Data)
'.....
'.....

 Public Function StringToBytes(ByVal Data As String) As Byte()
        StringToBytes = System.Text.ASCIIEncoding.ASCII.GetBytes(Data)
    End Function
 
    Public Function BytestoString(ByVal Data As Byte()) As String
        BytestoString = System.Text.ASCIIEncoding.ASCII.GetString(Data)
    End Function