Public Function Find_Replace(ByVal srchString As String, _
    ByVal FndString As String, ByVal InsertString As String, _
    ByVal strEnd As Integer) As String
  Dim I As Integer, LastChar As Integer, Next_Pos As Integer
  Dim CurrentPos As Integer, LastPos As Integer
  Dim TempString As String
  
  If strEnd > 0 Then
    LastChar = strEnd
  Else
    LastChar = Len(srchString)
  End If
  TempString = srchString
  Next_Pos = 0
  Next_Pos = InStr(Next_Pos + 1, TempString, FndString)

  Do Until (Next_Pos = 0) Or (Next_Pos > LastChar)
    TempString = Left(TempString, Next_Pos - 1) & InsertString & _
      Right(TempString, (Len(TempString) - Len(FndString) - _
      (Next_Pos - 1)))
    LastChar = LastChar - Len(FndString) + Len(InsertString)
    Next_Pos = 0
    Next_Pos = InStr(Next_Pos + 1, TempString, FndString)
  Loop
  Find_Replace = TempString
End Function

Public Sub Main()
  Dim SearchString As String, SearchFor As String, Replace As String
  Dim Position As Integer

  SearchString = "Tips for eating tri-tip steak."
  SearchFor = "Tip"
  Replace = "Clues"

  Debug.Print "SearchString = ", SearchString
  SearchString = Find_Replace(SearchString, SearchFor, Replace, 0)
  Debug.Print "SearchString = ", SearchString
End Sub