'Define Variables
Dim fso, ReadFile, ProDictionary, StdDictionary, arrUserIDList
Dim strID, strUserID
Set ProDictionary = CreateObject("Scripting.Dictionary")
'Set StdDictionary = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ReadFile =...