Dim Stream As New IO.StreamReader("D:\SW\infile.txt", _
  System.Text.Encoding.Default)
        Dim line As String
        line = Stream.ReadToEnd
        TextBox1.Text = line
 
        TextBox1.Text = TextBox1.Text.Trim(Chr(58), Chr(13))