Option Explicit Dim Wscript ''As New objWSCRIPT_Emulator '' GLOBAL initiated in Main - also For Debug in Excel Dim objFSO ''As New FileSystemObject - '' GLOBAL initiated in MAIN Dim intTristate ''if file is unicode this variable helpw sith read/write Const TristateTrue = - 1 Const TristateFalse = 0 Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''Make changes in MainResetUserINI() Subroutine. '''''''''''