参考代码
Dim str As String = "11%专piao"Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9%]+")If mc.count >= 1 Then msgbox(mc(0).value)End If