Please Note: VFP 8

Is there an expression which will trim leading zeros from a character expression? The expression may contain non-numeric characters.

What I've come up with seems so convoluted there almost has to be a better way.

xx="00010012012"
? SUBSTR(xx,AT(LEFT(CHRTRAN(xx,"0",""),1),xx))

Thanks to all.........Rich