Function for Replace substring in Lotus script

 @Replacesubstring in Formula language. Here you go for the lotus script function of the Replace sub-string

Function ReplaceSubString (ByVal SrcStr As String, ByVal OrigSubStr As String,ByVal RplcSubString As String) As String
' Dimension variables:
Dim NextPos As Long
Dim OrigSubStringLen As Integer
Dim RplcSubStringLen As Integer
Dim NStr As String

' Make copy of SourceString
NStr = SrcStr
' Calculate the Original SubString and Replacement SubString lengths only once:
OrigSubStringLen = Len(OrigSubStr)
RplcSubStringLen = Len(RplcSubString)
' Find First SubString to Replace
NextPos = InStr(NStr, OrigSubStr)

' Loop searching for substrings to replace
Do Until NextPos = 0
' Replace substring with new substring
NStr = Left$(NStr, NextPos-1) + RplcSubString + Mid$(NStr, NextPos +OrigSubStringLen )

' Find the next substring to replace
NextPos = InStr(NextPos+RplcSubStringLen, NStr, OrigSubStr)
Loop

' Return the New String
ReplaceSubString = NStr
End Function