>clear
>TEXT TO lcList NOSHOW FLAGS 1 PRETEXT 1 + 2 + 4
>	Vic: Lastname, Firstname
>	Vic: abc, def
>	Vic: xyz, wrt
>	Vic: test, test
>	Vic: somelastname, someFirstname
>	Vic: hugo, victor
>ENDTEXT
>
>loRegEx			= Createobject('VBScript.RegExp')			&& Create a regular expression.
>lcRetStr			= ''
>with loRegEx as VBScript.RegExp
>	.Pattern		= '(Vic: )(\w+, *)(\w+)'		&& Set pattern.
>	.IgnoreCase		= .T.						&& Set case insensitivity.
>	.Global			= .T.						&& Set global applicability.	   
>	
>	lcRetStr		= .Replace(lcList, '$2*****')
>ENDWITH
>	
>? lcRetStr
>