Allora questa è una funzione che mi sono creato io apposta.(VB6)
Volendo puoi anche intercettare gli errori di imputazione.
La stringa nonConsentiti contiene i caratteri di cui vuoi impedire la digitazione.Puoi aggiungerne o toglierne a tuo piacimento.


Ipotizza di avere una textbox in cui devi digitare il nome
Ha una label Nome e la proprietà name txtNome


codice:
Public Function soloLettere(testo, campo As String)
    Dim nonConsentiti, scelta As String
    Dim lungStringa, i, x As Integer
    lungStringa = Len(testo)
    nonConsentiti = "0123456789"
    
    For x = 1 To 10
    scelta = Mid(nonConsentiti, x, 1)
        For i = 1 To lungStringa
            If (InStr(1, scelta, Mid(testo, i, 1))) > 0 Then
                MsgBox "Errore. Inserire solo lettere nel campo " & campo & ".", vbExclamation, "Attenzione"
            End If
        Next
    Next
End Function
Per chiamare la funzione

Call (txtNome, "Nome")

Il primo valore è il testo della txtNome, il secondo il nome del campo che vuoi fare uscire nel messaggio di errore.