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

[dmassive]

Hola, hace un tiempito estuve con la misma duda, podrias usar ArrayList o List para el caso, sino basado en tu ejemplo seria algo asi;

Código vb:

Dim Vector() As String
 
Dim sr As StreamReader = File.OpenText("archivo.txt")
Dim Linea As String = ""
 
Dim Item As Integer = -1
 
While Not (Linea Is Nothing)
 
    Linea = sr.ReadLine()
 
    If Linea = Nothing Then
        Exit While
    Else
        Item += 1
        ReDim Preserve Vector(Item)
    End If
 
    Vector(Item) = Linea
 
    Console.WriteLine(Linea)
 
End While
 

Espero que te sirva, te queda el vector con las lineas de texto cargadas, despues con un For lo podes recorrer.

Saludos!

[ranchoteca]

Muchas Gracias
Me sirvio de Maravilla