درج دو مقدار در تابع replace

[علیرضا.ا]

امکانش هست که در دو جای مختلف تابع replace یک مقدار رو بگیره و دو تا مقدار مختلف رو جایگزین کنه؟!

مثلا بین یه سری عدد دو تا یک وارد شده باشه
به جای یک اولی بنویسه خوب و به جای یک دومی بنویسه بد

[nimar9]

سلام بفرمایید. اینو تو کامند بنویسید و یه تکست و یه لیبل اضافه کن.

a = Replace(Text1.Text, "1", "khoob", 1, 1)
Label1.Caption = Replace(a, "1", "bad", 1, 1)