Как запретить вставку Ctrl+V в TextBox или ComboBox - VB

Формулировка задачи:

В частности мне нужно чтобы юзер мог ввести в TextBox или ComboBox только цифры, как показано в коде, однако это меня не спасает от копирования и вставки букв.
Напишите кто знает как решить данный вопрос. Заранее благодарен.

Решение задачи: «Как запретить вставку Ctrl+V в TextBox или ComboBox»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Text1_KeyPress(KeyAscii <font color="blue">As</font> <font color="blue">Integer</font>)
<font color="blue">Dim</font> BkString <font color="blue">As</font> <font color="blue">String</font>
BkString$ = <font color="teal">"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz !@#$%^&*()_-+={}[],.\|/<>l;':"</font><font color="teal">"?'"</font>
<font color="blue">If</font> InStr(<font color="darkblue"><b>1</b></font>, BkString$, Chr(KeyAscii)) > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> KeyAscii = <font color="darkblue"><b>0</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Text1_Change()
<font color="blue">Call</font> Revision
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Revision()
<font color="blue">If</font> CStr(Val(Text1.Text)) <> Text1.Text <font color="blue">And</font> Text1.Text <> <font color="teal">""</font> <font color="blue">Then</font>
Text1.Text = <font color="teal">""</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="00AA00">'' Можно также для запрета Popup меню поставить</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Text1_MouseDown(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
<font color="00AA00">'' вариант 1</font>
<font color="00AA00">'If Button = vbRightButton Then</font>
<font color="00AA00">'Text1.Locked = True</font>
<font color="00AA00">'Else</font>
<font color="00AA00">'Text1.Locked = False</font>
<font color="00AA00">'End If</font>

<font color="00AA00">'' вариант 2</font>
<font color="00AA00">'If Button = vbRightButton Then</font>
<font color="00AA00">'PopupMenu mnuFile, 2</font>
<font color="00AA00">'End If</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        