VBBD_Ejercicio 05

Option Explicit
Dim pepe As String
Dim renglon As String

Private Sub Command1_Click()
renglon = Chr(13) & Chr(10)
Text1.Text = ""
Open App.Path & "\pepe.txt" For Input As #1
While Not EOF(1)
Line Input #1, pepe$
Text1.Text = Text1.Text & pepe & renglon
Wend
Close #1

End Sub