Visual Basic - PErmitir como entrada unica, caracteres alfabetico

PErmitir como entrada unica, los caracteres alfabeticos
Este es mi codigo en el objeto texbox que he creado
******************************
Private Sub txtcar_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
Case 65 + 32 To 90 + 32
Case 8, 9, 32
Case Else
KeyAscii = 0
End Select
End sub
*****************************
PEro para que realmente sea alfabetica la entrada, debe poder permitir la entrada de estos siguientes caracteres:
á é í ó ú ñ Ñ
pero no se como logralo
espero me ayuden a obtener esa solucion

solo tienes que agregar :

Para la Ñ el Case es 209
Para la ñ el case es 241
Para la á el case es 225
para la é el case es 233
para la í el case es 237
para la ó el case es 243
para la ú el case es 250

Puedes usar el siguiente código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim CharAcepta As String
´Todas las minúsculas
CharAcepta = "abcdefghijklmnñopqrstuvwxyzáéíóú"
´Agrega todas las mayúsculas
CharAcepta = CharAcepta & UCase(CharAcepta)
´Agrega el caracter retroceso para que puedas borrar
CharAcepta = CharAcepta & Chr(8)
´Si quieres puedes todos los caracteres de una sola vez

If InStr(CharAcepta, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub

Tambien puedes declarar CharAcepta como una cadena constante que contenga todas las letras aceptadas.
Espero que te sea de utilidad...