Visual Basic - Validacion de Textbox

If (KeyAscii >= 48 And KeyAscii <= 57) Then
Else
If (KeyAscii = 45 Or KeyAscii = 46 Or KeyAscii = 8) Then
Else
KeyAscii = 0
End If
End If

select case keyascii
case 48 to 57
'tucodigo
case 45,46,8
'tu codigo
case 0
'tu codigo
case else
end select