From the looks of your code section.exe generates a txt file named "SectionSelected.text", and you are having trouble getting the data because the section.exe is taking more time to create the file...
If so you can use FileExist to check if the txt file already exist...
Code:
Sub Button1_click
Shell("section.exe")
Do While FileExist ("myFile.txt") = False
DoEvents
Loop
'This waits for the file to be present before trying to open it
FileOpen (c1,AppPath&"\SectionSelected.text",cRead)
lbsection.Text= FileRead (c1)
FileClose(c1)
End Sub
I would also suggest you made sure that the file is after deleted so that the next time the sub is runned the file is NOT there, or you will load the wrong file (outdated)...