参考
Dim str As String = "abc123456ccceee123"Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+")msgbox(mc.count)msgbox(mc(0).value)