VBBD_Ejercicio03

Private Sub cmdLeer_Click()
Dim Linea As String
Dim Archivo As String

Open "C:\DATOS.DOC" For Input As #1

While Not EOF(1)

Line Input #1, Linea

        Text1.Text = Text1.Text & Linea & Chr(13) & Chr(10)

Wend
Close #1

End Sub

Private Sub cmdSalir_Click()
End
End Sub