Textbox nesnesine sadece rakam girmek

[FONT=Courier New][SIZE=2]'Burada karakter değişkenine hangi değerler atanırsa text kutusunu o değerler girilebilir.
'Örneğin karakter="abc" yazılırsa text kutusuna sadece a,b ve c harfleri girilebilir.
[/SIZE][/FONT][FONT=Courier New][SIZE=2]
[/SIZE][/FONT]Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim karakter$
karakter = "0123456789"
If KeyAscii <> 8 Then
If InStr(karakter, Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
Exit Sub
End If
End If
End Sub