vbaで英字+数字/数字+英字の文字から英字だけ取る

数字+英字ならVal()を使うと数字部分だけ取れる

Sub Sample1()
    MsgBox Val("123ABC")
End Sub

英字+数字ならひっくり返してから数字部分だけとり、Replaceで数字部分だけ消しちゃう

dim moji
moji = "ABC123"
MdgBox Replace(moji, StrReverse(Val(StrReverse(moji))), "")