Hola, no me acuerdo si funciona bien este código, revisalo por si acaso aquí va:
Una función en un módulo, la llamas en el keypress de tu textbox
Código:
Public Function sololetras(a)
If KeyAscii <> 8 Then
Select Case KeyAscii
Case Asc("A") To Asc("Z"), Asc("a") To Asc("z")
Case Else
KeyAscii = 0
End Select
End If
End Function