[aftfm]

جرب هذا الكود قد يفيدك

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        a = ExtractNumbers(Me.TextBox1.Text)
        Me.TextBox2.Text = (a)
    End Sub

    Shared Function ExtractNumbers(ByVal expr As String) As String
        Return String.Join(Nothing, System.Text.RegularExpressions.Regex.Split(expr, "[^\d]"))
    End Function