vb6 instr example