A Cool Site for learning different

Sunday, December 09, 2012

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.