Problema con cadena

Hola ..tengo este ciclo y quiero formar el siguiente string '0001','0002','0003'
 pero creo ke algo estoy haciendo mal por ke me sale asi ''',0001',0002',0003
aki te dejo mi codigo para ke lo chekes
 if i = 1 then
For i = 1 To  dw_list.RowCount( )
  if  dw_list.Object.depto[ i] = '1' Then
   ls_dep = dw_list.Object.c_codigo_dep[ i]
   ls_cadena = " ' " +ls_cadena+ " ' " +','+ls_dep
  end if
  next
end if