If InStr(InputData, "countrun") <> 0 Then 'checks the file for 
            ' the string countgen and puts the integer value
              strresult = MyExtract(InputData, 2, "F", ":") 'to the global 
              ' variable countgen
              countrun = CInt(strresult)
              Close #inthandle
              GoTo EndForLoop
            End If

EndForLoop:
         Next n

For n = 1 To (numbvar + 2)
          Line Input #inthandle, InputData