Dim intIlk, intSon As Integer

    Dim strSil As String

    

    intIlk = InStr(1, metin, ilk)

    intSon = InStr(intIlk, metin, son)

    strSil = Mid(metin, intIlk, intSon - intIlk)

    

    metin = Replace(metin, strSil, "")