Sub M_snb()
  open "G\OF\example.txt" for input as #1
     msgbox split(Input(LOF(1),#1),"This is the stop Text")(0)
  close
End Sub