Private Sub ReadData_MainIns()
Dim SR as new system.io.streamreader("instructions.dat")
dim data as string = sr.readtoend
dim line as string = data.split(vbCrLf)
For i as integer = line.tostring.contains("[Hacker Studio]") + 1 To line.tostring.contains("[End Hacker Studio]")
Next
End Sub