¡VB.NET usa expresiones regulares para extraer números!

En lugar de reemplazar todos los números que no sean dígitos con espacios, puede separar cada grupo de números reemplazándolos con una cadena vacía.

El programa completo es el siguiente (ver cambios en comentarios)

Dim?bbb?As?String

bbb?=?TextBox1.Text?

Dim?My_str?As?String?=?Regex.Replace(bbb,?" [^0-9]",?" ?") ?' Aquí reemplazamos todos los que no son dígitos con cadenas y espacios vacíos Reemplazar todos los que no sean dígitos

MsgBox(My_str)

MsgBox(My_str).