Acceso a Fichero Binario

[flyk]

Hola a todos.
Tengo la siguiente función para acceder a un fichero binario. La cuestión es que no me funciona, no me muestra los msgbox.
Alguien me puede ayudar, no se que estoy haciendo mal.

Private Sub tipo_puntos_Binary()
Dim int_num As Integer
Dim str_linea As String
int_num = FreeFile
str_linea = Space$(5)

Open strRutaPun_P For Binary As int_num
Get int_num, , str_linea
MsgBox (str_linea)
str_linea = Space$(15)
Get int_num, , str_linea
MsgBox (str_linea)
Close int_num

End Sub

[RadicalEd]

Prueba asi.

Código:

Open strRutaPun_P For Binary Access Read As #int_num
Get int_num, , str_linea
MsgBox (str_linea)
str_linea = Space$(15)
Get int_num, , str_linea
MsgBox (str_linea)
Close #int_num

Ojala te sirva.
Chao