Escribir varias lineas de texto en una variable tipo string

[ranchoteca]

Hola
Mi problema es el siguiente:

Quisiera saber como podria escribir por ejemplo:

Buenos Dias
Buenas Noches
Hasta Pronto

En una variable tipo string, pero que esas tres oraciones esten en un archivo txt, y yo vaya leyendo con el ReadLine() y asignando linea por linea a una variable tipo string.

Nota: Pero que no se sobreescriban.

Este es mi codigo:

Private Sub BtnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbrir.Click
'Dim w As Integer
'Dim arreglo() As String

If OpenFileDialog1.ShowDialog.ToString() = "OK" Then
fichero = OpenFileDialog1.FileName
Dim sr As StreamReader = File.OpenText(fichero)
Dim Line As String = sr.ReadLine()

While Not (Line Is Nothing)
cadeta = Line
Line = sr.ReadLine()
End While

End If

'Visualizar la variable tipo string con las tres sentencias dentro
MsgBox("Sentencia: " & cadeta)

End Sub


Muchas Gracias, agradeceria sus comentarios