Ou :
Caso queira somente Texto então sera como abaixo.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 49 And KeyAscii <= 57 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Aproveitando o contrario:
Se Você quiser que somente numeros sejam aceitos em controles TextBox faça,
da seguinte forma:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 49 Or KeyAscii > 57 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub