Aceitando Somente Numeros em Controles TextBox ou Somente Caracteres

Se Você quiser que somente números sejam aceitos em controles TextBox, faça da seguinte forma:

Código:

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

Caso queira somente Texto então o seu código deverá ser esse.

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 49 And KeyAscii <= 57 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Fonte:
http://www.vbbrasil.com.br/