TextBox’a Sadece Rakam Girilmesini Sağlamak

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
KeyAscii = 0
End If
End Sub