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 hechar un cable, 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
