Visual Basic - Manipulando teclas precionadas

Como vimos anteriormente podemos controlar as teclas que são pressionadas através do tabela ASCII, vamos ver um exemplo dessa manipulação na linguagem Visual Basic, veja o código abaixo:

If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0 'nenhum tecla será ativada
End If
End If

Esse código quer dizer que será possível digitar apenas números e utilizar o backspace.
A variável KeyAscii é a variável que armazena o código ASCII da tecla prescionada.
Um exemplo de onde usar esse código é no evento Keypress de uma caixa de texo para informar a idade de uma pessoa

Private Sub txtidade_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

Espero que tenham gostado da dica!