vb中连接字符串和数字

VB语言怎么提取字符串中的数字？vb中如何截取字符串中的数字？更简单更一般：对于I=1到Len（a）B=mid（a，I，1）如果是数字（B），那么s=Val（mid（a...