Running multiple refreshes using a VBA macro

Question

My company has just moved from BO 5.1.5 to BO XI 3.0 and I'm having some probelms running a VBA macro which extracts a large ammount of sales data to a text file. The macro uses an array and a For Each Next loop to enter variable details before the Refresh and then it downloads the text data, looping back to enter different Major Product values before the next refresh.
Here is the code I'm using in BO 5.1.5 and would like to rewrite as event based code ie BeforeRefresh/AfterRefresh.
Sub Main_Report()
    Dim Docs As Documents
    Dim Doc As Document
    Dim Rep As Report
    Dim Reps As Reports
    Dim DocNum As Integer
    Dim RepNum As Integer
    Dim Location As String
    Dim VarName As Variable
    Dim DataPro As DataProvider
    Dim FileName
    Dim Majors
    Dim MajorList
    Dim Period
    Dim Counter
    MajorList = Array("001", "002", "003")
    Period = Format(DateAdd("m", -1, Now), "YYYYMM")
    Counter = 0
'   Enter user prompt values into query for current period and YTD
    For Each Majors In MajorList
    Counter = Counter + 1
        For i = 1 To ActiveDocument.Variables.Count
            Set VarName = ActiveDocument.Variables(i)
            If VarName.IsUserPrompt Then
                Select Case VarName.Name
                    Case "Major Group"
                        ActiveDocument.Variables(i).Value = Majors
                    Case "Period"
                        ActiveDocument.Variables(i).Value = Period
                End Select
             End If
        Next i
    '   Refresh the current report and save data
        Application.Interactive = False
        ActiveDocument.Refresh
        Location = "
seausdcff015\saracm$\My Documents\Tables\Sales\"
        Set Docs = Application.Documents
        Set Reps = ActiveDocument.Reports
    '   Export each report as "TXT" files from current document
        Set Doc = Docs.Item(1)
        FileName = Location & Doc.Name & "_" & Counter & ".txt"
        Set DataPro = ActiveDocument.DataProviders.Item(1)
        Call DataPro.ConvertTo(boExpAsciiTab, 1, FileName)
        Application.Interactive = True
    Next
End Sub
Can you please help. Cheers Milos.

Answer 1

A coworker found this thread on asktom:
http://asktom.oracle.com/pls/asktom/f?p=100:11:861518416236107::::P11_QUESTION_ID:10498431232211
It sort of details a similar (if not the same) method to that above.