VB Replace Implementation

Today, a VB program found that the program comes with the Replace function do not know what reason is not good use so I wrote a play

Record it

'XGZ'Replace characterPrivate FunctionReplace1 (ByValResorce as String,ByValTag as String,ByValValue as String) as String   DimRet as String   DimI as Integer   DimJ as Integer   DimT as Integer   DimOffSet as Integer   DimPos as Integer   DimIstag as BooleanOffSet=Len(Tag) ' Jumping Replace1=""       fori =1  to Len(resorce) Istag=False     If Mid(Resorce, I,1) =Mid(Tag,1,1) ThenT=I forj =1  toOffSetIf Mid(Resorce, T,1) =Mid(Tag, J,1) ThenT= T +1          End If               NextJIfT-i = OffSetThen ' exact matchIstag=TrueI= i + OffSet-1 ' I will automatically add one so I subtract one at that place         End If                  If  notIstag Thenret= RET &Mid(Resorce, I,1)         End If                  IfIstag Thenret= RET &valueEnd If                                  Elseret= RET &Mid(Resorce, I,1)     End If        NextI Replace1=retEnd Function

VB Replace Implementation