Private Function DeleteWithin(ByVal TheString as String, ByVal BadTerm as String)
START_PROCESS:
If InStr(TheString, BadTerm) > 0 Then
    OldLength = Len(BadTerm)
    TotalLength = Len(TheString)
    InnerStringPos = InStr(TheString, BadTerm)
    LeftSide = Left(TheString, InnerStringPos - 1)
    RightSide = Right(TheString, TotalLength - (InnerStringPos + OldLength - 1))
    TheString = LeftSide & RightSide
    GoTo START_PROCESS
Else
    DeleteWithin = TheString
End If
End Function