Dim i As Integer
        Dim strTestArray() As String

        'temp test
        Dim rule As Redemption.RDORule
        Dim action As Redemption.RDORuleAction
        Dim actions As Redemption.RDORuleActions
        Dim subfolder As Redemption.RDOFolder
        Dim strConditions As String

        Debug.Listeners.Add(New
 TextWriterTraceListener(System.AppDomain.CurrentDomain.BaseDirectory() &
 "output.txt"))
        Debug.AutoFlush = True

        strConditions = "(SenderEmailAddress = ') and (Body
 like '%test%')"

        subfolder = Inbox.Folders("Test")

        For i = 1 To 100
            ReDim strTestArray(2)
            strTestArray(0) = "testrule" & i
            strTestArray(1) = "Test"
            strTestArray(2) = "Test"

            ' begin temp
            rule = rules.Create(strTestArray(0))
            '            subfolder = Inbox.Folders("Test")

            actions = rule.Actions
            action = actions.MoveToFolder
            action.Folder = subfolder
            action.Enabled = True

            rule.ConditionsAsSQL = strConditions

            rule.Enabled = True
            rule.Save()


            Marshal.ReleaseComObject(action)
            Marshal.ReleaseComObject(actions)
            Marshal.ReleaseComObject(rule)

            GC.Collect()
            ' end temp

            Debug.WriteLine(i)

        Next i

        MsgBox("test finished - " & i)