สอบถามเกี่ยวกับการออกจาก Function client.getstream เมื่ออ่านค่าแล้วไม่เจอข้อมูล

  Try
                ' TimerChkGetStream.Enabled = True

                Dim networkStream As NetworkStream = Client.GetStream()

                If networkStream.CanWrite And networkStream.CanRead Then

                    Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(comm + vbCrLf) 'comm = command

                    networkStream.Write(sendBytes, 0, sendBytes.Length)

                    ' FlagAGV(1)

                    Dim bytes(Client.ReceiveBufferSize) As Byte
                    networkStream.Read(bytes, 0, CInt(Client.ReceiveBufferSize))
                   
                    ' FlagAGV(0)
                    returndata = Encoding.ASCII.GetString(bytes, 0, bytes.Length)
                Else
                    If Not networkStream.CanRead Then

                        Client.Close()
                        networkStream.Close()
                    Else
                        If Not networkStream.CanWrite Then

                            Client.Close()
                            networkStream.Close()
                        End If
                    End If
                End If
            Catch err As Exception
                MsgBox(err.Message, MsgBoxStyle.Exclamation)
            End Try