MID$("CDEFGABR",A,1) こんなのはどうでしょう?