se corta la cadena string

[rembolso]

hola . estoy intentando abrir archivos de mi pc y encontro una imagen que no se abre.

es esta imagen:

es la del celular del facebook .

Código (vb) [Seleccionar] Expandir

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

[DarkMatrix]

Debes abrir el archivo en modo binario.

[rembolso]

gracias .. me re olvide del binario... xD: