Dim inp As InputStream
inp = Srv.InputStream
Dim s As String
If inp.BytesAvailable >0 Then
Dim buffer(inp.BytesAvailable) As Byte
inp.ReadBytes( buffer,0, inp.BytesAvailable )
s = BytesToString(buffer,0,buffer.Length ,"Windows-1253")
Msgbox( s,"")
End If