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