Dim objShell, objFso, objFsoRead, strRead, aryFields, strConnection
 Dim strID, strAdd, strCity, strState, strZip, strPhone, strEmail
 Dim rst, cnn

 Set objShell = CreateObject("Wscript.Shell")
 Set objFso = CreateObject("Scripting.FileSystemObject")
 Set cnn = CreateObject("ADODB.Connection")
 Set rst = CreateObject("ADODB.Recordset")
 Set objFsoRead = objFso.OpenTextFile("C:\email\grades.txt",1)
 Set objFsoWrite = objFso.OpenTextFile("c:\email\failing students.txt",8,true)

 '****************************************************************
 'Open flat text file and read the address info.
 '****************************************************************

  Do While objFsoRead.AtEndOfStream <> True
   strRead = objFsoRead.ReadLIne

   strFN = Mid(strRead,36,10)
   strMN = Mid(strRead,46,1)
   strLN = Mid(strRead,24,12)
   strCG = Mid(strRead,60,1)
   strOut = trim(strFN) & ", " & trim(strMN) & trim(strLN) & trim(strCG)

   if strCG = F then objFsoWrite.writeline(strOut)
  Loop

objFsoRead.close
objFsoWrite.close