کپی کردن فقط اعداد داخل textbox به یک textbox دیگر

سلام دوستان
ایا کپی کردن فقط اعداد داخل textbox1 به یک textbox2 امکان داره ؟
میشه کدش رو برام بزارید ؟
ممنون

سلام
راه های متنوعی میتواند داشته باشد...
اگر مقادیر دیتا ها برایتان مهم نیست و فقط میخواهید ارقام را کپی کنید، میتوانید از کدی شبیه زیر استفاده کنید.

کد:

---

Public Function GetOnlyDigit(ByVal txt As String) As String
    If (txt Is Nothing) Then Return Nothing
    Dim ilength As Integer = txt.Length
    If (ilength <= 0) Then Return Nothing

    Dim ret As New System.Text.StringBuilder(ilength)
    Dim ch As Char

    For index As Integer = 0 To ilength - 1
        ch = txt(index)
        If Char.IsDigit(ch) Then ret.Append(ch)
    Next

    If (ret.Length <= 0) Then Return Nothing
    Return ret.ToString
End Function

---