Export many tags value to excel.

I have a trouble with FactoryTalk View Studio because I need export 500 values, I thought in use a for statment and a array because when I try put all the declaration show me a message that say "procedure too large", below you can see the script:

Dim WithEvents MyTagGroup As TagGroup
Private Sub Button7_Released()

Dim MyExcel As Excel.Application
Dim MySheet As Excel.Worksheet
Dim x as integer
Dim mytagvalue as variant
x=2

Set MyExcel = CreateObject("Excel.Application")
MyExcel.Visible = True
'Abrir un Archivo existente
MyExcel.Workbooks.Open "C:\Users\Documents\Cycle TimeCycle_Time.xls"
Set MySheet = MyExcel.ActiveSheet

Dim Tag1 As Tag

For i = 0 to 500
Set MyTagGroup = Application.CreateTagGroup(Me.AreaName)
MyTagGroup.Add "[PLC_10]PalletTime"
MyTagGroup.Active = True
Set Tag1 = MyTagGroup.Item("[PLC_10]PalletTime")
mytagvalue=Tag1.Value
MySheet.Cells(x, 2) = mytagvalue.value
x=x + 1
Next i

'Guardar Ejecucion en un archivo diferente
MyExcel.ActiveWorkbook.SaveAs "C:\Users\demak\Documents\Cycle Time\Cycle_Time" & "-" & Format(Now, "dd-mmm-yyyy-hh-mm-ss") & ".xls"
MyExcel.ActiveWorkbook.Close
MyExcel.Quit

End Sub


Really I need support because I'm new in factorytalk VBA.

It's to do with the loop size. I got around this by calling routines to process smaller loops

Ash

But how is the syntax could you explain me because I was trying but show a error messages.

Jose.