Textbox that ONLY shows numbers ??

[vbNeo]

How do i make a textbox that you ONLY can write numbers in ?
I thought of something like this:

If  txtNumbers.Text = "a" or "A" Then
txtNumbers.Text = ""
End If

It works fine, but it will just be a hell of a lot of work !
And i'm... pretty lazy
Regards