RE:VISUALIZAR ARCHVIO.TXT
Este ejemplo me funciona bastante bien.
Private Sub Command1_Click()
On Error Goto Cancelado
Dim nFich As Integer
nFich = FreeFile
CommonDialog1.Filter = "Archivos de texto (*.TXT)|*.TXT"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #nFich
Text1.Text = Input$(LOF(1), #nFich)
Exit sub
Cancelado:
If Err.Number = 75 Then Exit Sub
End Sub
Se abre una caja de dialogo y seleccionas el fichero que quieres abir. El contenido del fichero se muestra en la caja de texto Text1 que de debe de tener la propiedad Multiline en True. Hay que añadir el componente Microsoft Commond Dialog Control 6.0 (SP6)
Espero que te sirva
Saludos