Msgbox MID$(Range("A1").Value,LEN(Range("A1").Value)-3,3)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"geebee" (noSPAMs) wrote in message
...
hi,

i am trying to figure out how i can have in my VBA to show the value of:
=MID(RIGHT(A1,5),2,3)

where A1 is the cell in the active sheet.

thanks in advance,
geebee