[asemshahen5]

PHP كود :

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String
        a = ExtractNumbers("125abc555dex_123456_")
        Txt_UserName.Text = (a)
    End Sub
    Function ExtractNumbers(ByVal expr As String) As String
        Return String.Join(Nothing, System.Text.RegularExpressions.Regex.Split(expr, "[0-9_]"))
    End Function