Function Test()
Dim Driver,strRunFlag,strName
testFolderPath=Path
testDataFileName=FileName
  If testDataFileName<>"" Then
    Log.Message testDataFileName
    'ReadInputFile=testFolderPath+"\"+testDataFileName
    ReadInputFile=testFolderPath+"\"+testDataFileName            
    Set Driver = DDT.ExcelDriver(ReadInputFile,"TestData",True)
    While Not DDT.CurrentDriver.EOF
        strRunFlag=Trim(DDT.CurrentDriver.Value("Run_Flag"))
        strName=Trim(DDT.CurrentDriver.Value("Applicant_Name"))   
        If strRunFlag<>"N" Then
        Log.AppendFolder "QUOTE NAME: "&strName
      End If
  DDT.CurrentDriver.Next()  
  Wend                        
  DDT.CloseDriver(DDT.CurrentDriver.Name)
End if 

End Function