Code:
dim buffer as string,position as long
open file for binary as #1
  buffer=space(lof(1))
  get #1,,buffer
  position = instr$(buffer,"TAG2")
Close #1