Pessoal gostaria de saber como faço para verificar se o que o usuario digitou não contém numeros somente letras e o inverso também.

 

Antecipadamente agradeço a atenção

Sei que é uma coisa simples para quem já tem o conhecimento, porém para mim que estou começando qualquer dica seria uma enorme ajuda.

Se vc quer testar isto talvez não adiante, mas se vc quer apenas verificar, digo permitir ou não vc pode fazer desta maneira...

  Vc vai precisar da tabela ascii para isto

 

' no keypress do text digite isto

If ((KeyAscii >= 65) And (KeyAscii <= 90)) Or _
       ((KeyAscii >= 97) And (KeyAscii <= 122)) Or _
       (KeyAscii = 32) Or (KeyAscii = 8) Then
    Else
        KeyAscii = 0
    End If

' no caso acima se ele digitar letras maiusculas ou minusculas ou tab ou backspace, se não me engano é isto, tudo bem mas se ele digitar numeros ou outros caracteres não aparecerá na text. Não será digitado.

 

      Espero ter ajudado.....

Fiz um código, simples, para você testar.

 

 

Num click de um command, por exemplo, use este código.

 

    If IsNumeric(Text1.Text) Then
        MsgBox "Só contém números."
    Else
        Dim i As Integer
        Dim bLetNun As Boolean
        bLetNun = True
       
        For i = 1 To Len(Text1.Text)
            If IsNumeric(Mid(Text1.Text, i, 1)) Then
                MsgBox "Contém letras e números."
                bLetNun = False
                Exit For
            End If
        Next
        If bLetNun Then MsgBox "Contém só letras"
    End If

Valeu a força pessoal.