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