[معاند الحظ]

وعليك السلام ورحمة الله

ضع هذا الكود في الحدث الذي تريده

كود :

 Dim t As String = My.Computer.Clipboard.GetText
        Dim a As String = ""
        For Each c As Char In t.ToCharArray
            If Not IsNumeric(c) Then
                a += c
            Else
                a = ""
                Exit For
            End If
        Next

        Me.Text = a

لكن الكود السابق لن يعمل عند استخدام ctrl+v
لذا انصحك بالحل الموجود في الرابط وهو عمل TextBox مخصص 
https://www.dreamincode.net/forums/topic...te-events/