ReaderID(ReaderName)

Set AloahaPDF = CreateObject(“AloahaSimplePDF_oop.simpleEdit”)
MsgBox CStr(AloahaPDF.readerid(AloahaPDF.readername(0)))
Set AloahaPDF = Nothing