@right in LotusScript

Here is the code...

Function RightStr(OrigStr, RightOf ) As String Dim Pos As Integer Dim OrigStrLen As Integer Dim RightOfLen As Integer Pos = Instr( Lcase(OrigStr), Lcase(RightOf) ) OrigStrLen = Len(OrigStr) RightOfLen = Len(RightOf) If Pos>0 Then RightStr = Right( OrigStr, OrigStrLen -(RightOfLen+Pos-1)) Else RightStr = OrigStr End If End Function