vb中利用replace替换，如果一行中有多个相同的数，但是不想全部替换怎么办？

vb中利用replace替换，如果一行中有多个相同的数，但是不想全部替换怎么办？
如txt文本中第一行是i am a boy 100 20 100 30
想把第一个100替换为50 把第二个100替换为60
理想结果为i am a boy 50 20 60 30
该咋办，用了replace函数，但是一下就把两个100都替换为相同得数了，请各位大侠支招，谢谢：）

Replace函数的第五参数表示替换次数(第四参数指替换开始处).

Private Sub Form_Load()
Dim sTemp As String

sTemp = "i am a boy 100 20 100 30"

sTemp = Replace(sTemp, "100", "50", , 1)
sTemp = Replace(sTemp, "100", "60", , 1)

MsgBox sTemp

End Sub

Str1 = "i am a boy 100 20 100 30" strx = "100" dim stry(2) stry(0) = 50 stry(1) = 60 for i=1 to ubound(stry) str1 = replace(Left(Str1, instr(Str1,strx)+len(strx)),strx,stry(i-1)) & right( Str1, len(Str1)-instr(Str1,strx)-len(strx)) next wscript.echo str1

举例： s = "ffffffffffff" s2 = replace(s, "hh", "a") if s2 = s then msgbox "没有替换" if s2 <> s then msgbox "有替换" s = "ffffffffffff" s2 = replace(s, "f", "a") if s2 = s then msgbox "没有替换" if s2 <> s then msgbox "有替换"