delete only alphabetic in textbox

i create a text box who name is Text1 and i put this number and alphabetic chr how can i run programe the text box show only numbers..

Private Sub Form_Load()
Text1.Text = "1234htu33?567"
End Sub