Macro to truncate string... like "Len,Left,Right formulas"

I would like a macro to identify the cell to the right, shorten the string of text and place it in the active cell. I want to snip characters off both the left and right sides.

I would like a macro to perform as follows:

Run macro

Input box: "Enter the number of characters to delete from the left"

**I'll enter... say "7"

Input box: "Enter the number of characters to delete from the right"

**I'll enter... say "4"

**Then in the active cell it will produce a truncated string.

Any help appreciated!!