Oh, my mistake..... I was assuming that your decimal
digit was stored in Cell A1. So, if your decimial number
is stored in A1, then that code will work and it will save
the value in variable x!



"Robert Crandal" wrote in message
...
How's this for a crazy solution:

Dim x as Integer

x = Left(Right(Sheet1.Range("A1").Text, 2), 1)

I think that returns what u want??