' From textReaderText, create a continuous paragraph 
' with two spaces between each sentence.
Dim aLine, aParagraph As String
Dim strReader As New StringReader(textReaderText)
While True
    aLine = strReader.ReadLine()
    If aLine Is Nothing Then
        aParagraph = aParagraph & vbCrLf
        Exit While
    Else
        aParagraph = aParagraph & aLine & " "
    End If
End While
Console.WriteLine("Modified text:" & vbCrLf & vbCrLf & _ 
    aParagraph)

' 导入命名空间
Imports System
Imports System.IO
Imports System.Text


Public Class MainClass

   Shared Sub Main()
        ' Use a StringWriter to write into a string.
        Dim string_writer As New StringWriter()
        string_writer.WriteLine("www.java2s.com")
        string_writer.WriteLine("www.java2s.com")

        ' Use a StringReader to read from the string.
        Dim string_reader As New StringReader(string_writer.ToString)
        string_writer.Close()
        Console.WriteLine(string_reader.ReadLine())
        Console.WriteLine(string_reader.ReadToEnd())
        string_reader.Close()

   End Sub 

End Class