str = "AbCdEf"
rightOne = Left(Right(str, 3), 1)

あとはてめえでやれ。