提供个思路探讨。
dim s as string
select case s.length
case 14 ‘获取字符串长度,如果是14位,
s.SubString(s.Length -2) ’获取字符串右侧12位
case 15 ‘如果是15位
s.SubString(s.Length -3) ’获取字符串右侧12位
end select
没有运行,仅供参考