Seding Row and index to another sub

[AFK1]

I am using a TDBgrid. My users can select diffent rows in the grid and based on that selection I create a file.I need to send the index of the selected row and the bookmark to another sub.
my code is
Dim Bookmark As Variant
Dim i As Integer
If mMax > 0 And Grd.SelBookmarks.Count > 0 Then
For i = 0 To Grd.SelBookmarks.Count - 1
Call CreateFile(Grd.SelBookmarks(i, Array(miColumn1_COL, Bookmark )))
Next

When I run my code I get an error "Wrong number of arguments or invalid properity assigned."
Can someone help.

 

[cbsm]

Where does the error comes up ?

grd.selbookmarks.count
grd.selbookmarks(i,array ...)
Array(micol,bookmark)
CreateFile
Go through your code in Debug, and look at the value of everything - this will help find what the problem is.

 

[AFK1]

The error occurs at .SelBookmarks.

 

[AFK1]

It seems that with SelBookmarks I can only send the index but not array. (My guess). Is there another way that I can send both?