my code return boolean

i need all strings on this array "{?SUBGRUPO}[x]"

Code:
numberVar x;  

"SubGrupo: " +
(if {?SUBGRUPO} = '*'
    then 'Todos os Subgrupos'
    else
    ToText(   //this code is for force string....
    (for x :=1 to ubound({?SUBGRUPO})-1 do
    {?SUBGRUPO}[x] + ", ";)))

sorry my english =/