Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
TextBox1.MultiLine = True TextBox1.ScrollBars = fmScrollBarsBoth Open "C:\Ruta\Archivo.Txt" For Input As #1 Texto = "" Do Until EOF(1) Input #1, Linea Texto = Texto & Linea Loop TextBox1.Text = Texto Close #1 End Sub