Output cell values in column to list with comma

Hello,

I'm making a macro to run against an sql db.

I want to make the macro create a string of all the numbers in column A (from row 4 and down) and seperate them by comma

I have a sheet named "Approval" with the following example-values in column A:
4: 101
5: 102
6: 103

I want it to output the following:
"101, 102, 103"

And this needs to be used by the macro and inputed as this:

Please Login or Register  to view this content.

How can I make the values be all of the numbers in column A4 and down seperated by comma?

I can not seem to get this to work.

Could you please paste the complete vba to get the numbers in:
Sheet "Aproval"
Column: A
Row: 4 and down

Pasted in:
Sheet "VBdata"
Cell: I1

And values separated by comma?

Thank you! That worked like a charm, however i get a lot of values at the end which are blank and separated by comma.

Example:
101, 102, 103,,,,,,,,

Tried to add an if statement to check if c.value > 100 and then exit sub but that did not solve the issue =\
I'm really trying my best to do it on my own and learn, but unfortunately still a noob

YES! Fiddling with the code gave me the desired result I would like to thank nathansav for his guidance to solving my issue.

I changed the formula to only add values above 100 to the string, and then deleting the last character before entering the value to cell I1.
Below is the code that worked:

Please Login or Register  to view this content.