SoloCodigo

ojala te sirva esto:

private sub text1_keypress(keyascii as integer)
if keyascii=13 then
     if isnumeric(text1) then
        msgbox "solo letras"
        text1.setfocus
     end if
end if

Hay formas más precisas de limitar los caracteres a escribir, este ejemplo solo permite que escribas letras mayúsculas en un textbox, también puedes escribir letras acentuadas.

Private Sub txtNombre_KeyPress(KeyAscii As Integer)
    Dim letters As String
    Dim strChar As String
    letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZÑÁÉÍÓÚÜ "
    strChar = UCase(Chr$(KeyAscii))
    If KeyAscii = 8 Then
    ElseIf InStr(letters, strChar) Then
        KeyAscii = Asc(strChar)
    Else
        KeyAscii = 0
    End If
End Sub

---------------------
"Corrector Ortográfico de Notas", útil para revisar los textos en los programas.
Escrito en Visual Basic, con diccionario propio.

http://geocities.com/igmario/index2.html

Hola a todos, les agredezco mucho sus repuestas pero...    estuve tan ocupada ke olvide revisar en internet las respuesas,  sin embargo encontre otra solucion, pues solo hice funciones en un modulo y  cuando valido solo las llamo a cada una de ellas.


Public Function Numeros(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 Then KeyAscii = 0
End Function

Public Function Letras(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 8 And KeyAscii <> 32 And KeyAscii <> 13 Then KeyAscii = 0
End Function


Bueno solo eso kiero agregar, gracias por todos