Private Sub Form_Load()
    Text1.Text = "c:\autoexec.bat"
    Debug.Print DameContenidoFichero(Text1.Text)
End Sub
Function DameContenidoFichero(ByVal xFicheroDatos As String) As String
    ' Devuelve en una cadena el contenido del fichero indicado
    Dim xContenido As String, lLongitud As Long, iFreeFile As Integer   
    
    iFreeFile = FreeFile()
    Open xFicheroDatos For Binary Access Read Shared As #iFreeFile
    lLongitud = LOF(iFreeFile)
    xContenido = Space(lLongitud)
    Get #iFreeFile, , xContenido
    Close #iFreeFile
    DameContenidoFichero = xContenido
End Function