make improvements of the debug view

Author: xieguigang

Data/BinaryData/BinaryData/BufferRegion.vb

@@ -100,7 +100,7 @@ Public Class BufferRegion
     End Sub
 
     Public Overrides Function ToString() As String
-        Return $"&{StringFormats.Lanudry(position)} [{StringFormats.Lanudry(size)} bytes]"
+        Return $"&{StringFormats.Lanudry(position)} [{StringFormats.Lanudry(size)}]"
     End Function
 
 End Class

Microsoft.VisualBasic.Core/src/ApplicationServices/FileSystem/SubStream.vb

@@ -139,6 +139,10 @@ Namespace ApplicationServices
             m_position = offset
         End Sub
 
+        Public Overrides Function ToString() As String
+            Return $"sub-stream of '{s}' from {StringFormats.Lanudry(offset)} with span size {StringFormats.Lanudry(Length)}"
+        End Function
+
         ''' <summary>
         ''' commit data to the base stream
         ''' </summary>