VB删除字符串最后的数字

Question

VB这样删除字符串最后的数字？字符串有字母符号数字混合组成，例如A23K56，DR44K9937等，这样将字符串 "K" 后面的数字 “56”、“9937” 删除，而字母中间的数字保留不变；也就是只删除字符串、某个特殊字符后面的数字；望各位大师帮助题解，谢谢。

Answer 1

dim a,b as string
a = inputbox("请输入字符串")
DO
b = right(a,1)
if b>"0" and b<"9" then
a = left(a,len(a)-1)
else
exit DO
end if
loop
print a