ReplaceAll function in lotus script

Code snippet to stimulate replaceAll function in lotus script

Function StringReplaceAll(Byval strArg As String, Byval strSrc As String,Byval strDst As String) As String


Dim iPos As Integer
iPos = Instr(strArg, strSrc)

While iPos > 0
strArg = Left$(strArg, iPos - 1) + strDst + Mid$(strArg, iPos + Len(strSrc))
iPos = Instr(iPos + Len(strDst), strArg, strSrc)
Wend

StringReplaceAll= strArg

End Function


The function call StringReplaceAll("hello","l", "g") will give the result as 'heggo'