clear LOCAL laTest(4), i laTest[1] = "0002567890" laTest[2] = "0000027890" laTest[3] = "00002678-1" laTest[4] = "0000000002" loRegEx = Createobject('VBScript.RegExp') with loRegEx as VBScript.RegExp .Pattern = '^0+(.*)' .IgnoreCase = .T. .Global = .T. FOR i = 1 TO ALEN(laTest, 1) ? .Replace(laTest[i], '$1') NEXT i ENDWITH