Dim ○○済 As Boolean

で良いのに、

Private Const ○○済 As String = “1”

Private Const 未○○ As String = “0”

という宣言がしてある。