Problema con Textbox que sólo acepta números!

Hola,

Estoy utilizando el siguiente código para que mi textbox acepte únicamente
números:

Function SoloNumeros(ByVal Keyascii As Short) As Short
If InStr("1234567890", Chr(Keyascii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = Keyascii
End If
Select Case Keyascii
Case 8
SoloNumeros = Keyascii
Case 13
SoloNumeros = Keyascii
End Select
End Function
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
keyascii = CShort(SoloNumeros(keyascii))
If keyascii = 0 Then
e.Handled = True
End If
End Sub

Funciona perfectamente, el problema es que debido a que sólo acepta

el usuario no puede copiar o pegar una cadena de caracteres desde este
textbox (presionar "Ctrl + C" o "Ctrl + V"). ¿Cómo puedo resolver esto
manteniendo el formato sólo números?

Gracias y Saludos!