Public Function AbrirArichivo(file As String)
Dim n_File As Integer
Dim Linea As String
    n_File = FreeFile()
Open file For Input As n_File
 
While Not EOF(n_File)
 
Line Input #n_File, Linea
 
Wend
 
Close #n_File
AbrirArichivo = Linea
text2.text =  AbrirArichivo ' en este texto se visualizan los siguiente bytes: ‰PNG
' solo esos bytes porq no se visualiza todo el archivo .
End Function