How to store $lb representation in a string ?

Hi !

I'm looking for a simple way to store in a string a list in $lb representation.  Ex : 

Set list = $ListBuild("data2", "data2", "data3")
ZWrite list
/* show : list=$lb("data1","data2","data3") */

With the ZWrite command, we can display the $lb representation but I would like to store it in a string variable.

I can do it with this code : 

Set strtp = """%1""", str = "$lb(", ptr = 0While$ListNext(list, ptr, value) {
    Set str = str _ $Select($IsValidNum(value): value, 1: $Replace(strtp,"%1",value)) _ ","
}
Set$Extract(str,*) = ")"Write !,str
/* show : $lb("data1","data2","data3") */

Is there an easier way with a pre-built function/method?

Thank you!