Replace Last Occurrence In String

  1. Dim NewString As String
  2. Dim SourceString As String
  3. Dim SearchString As String
  4. Dim ReplaceString As String
  5. NewString = StrReverse(Replace(StrReverse(SourceString), StrReverse(SearchString), StrReverse(ReplaceStr), , 1))
  6. Return (NewString )
  7.  


Written by