Option Explicit
Option VBAsupport 1

Dim dlg As Object

Enum States
  initialSearch = 1
  generatingIndexEntries = 2
  fixingBadTermRefFmt = 3
End Enum

Const strStateNames As Array("Initial Search", "Generating Index Entries", "Fixing Bad Term References")

Dim curState As States = States.initialSearch