Extraer números de una cadena de texto

A Continuación tenemos un ejemplo que permitirá separar los números desde una cadena de texto.

Código fuente

Paso 1: Agregamos una clase donde crearemos una función que se encargue de extraer solo números de la cadena de texto

Public Class ucExtraer_Numero

'Creamos una función publica que se encargue de extraer solo números

    Public Function SoloNumeros(ByVal strCadena As String) As Object

        Dim SoloNumero As String = ""

        Dim index As Integer

        For index = 1 To Len(strCadena)

            If (Mid$(strCadena, index, 1) Like "#") _

                Or Mid$(strCadena, index, 1) = "-" Then

                SoloNumero = SoloNumero & Mid$(strCadena, index, 1)

            End If

        Next

        Return SoloNumero

    End Function

End Class

Paso 2: Validamos el evento Click del button

Private Sub btnExtraer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExtraer.Click

Try

        'Hacemos referencia a la clase

        Dim oExtraer As New ucExtraer_Numero
          'Mostramos el valor  resultante de la clase

        txtSoloNumeros.Text = oExtraer.SoloNumeros(txtValor.Text)

Catch ex As Exception

  MessageBox.Show(ex.Message, "vb.net", _
MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

 End Sub