Привет всем!
Написал небольшой цикл в VBA, в экселе, в принципе что в аксессе,что в экселе смысл один и принцип такой же.
Процедурка выполняет следующее : бежит по выделенному диапазону значений ,склеивает значения в одну строку и записывает в буфер обмена, чтобы потом можно было сразу при помощи Ctrl+V вставить в нужное место в другую программу:


Все отлично выполняется, единственно что режет глаз, это то, что после последнего элемента всегда проставляется запятая.
Тело склейки в цикле s = s & x & ","

Можно ли как нибудь прямо цикле сделать так, чтобы последний элемент не заканчивался запятой?
Обрецать итоговую строку можно конечно: d.SetText(Left(s, Len(s) - 1)) , но наверное это не по феншую.

Всем спасибо за пятничный феншуй!)

Пользуясь случаем ,умыкнул у Predeclared более короткий вариант работы с selection For Each x In Selection ,где не надо дополнительно c диапазоном ничего set и activate))