Visual Basic - AYUDA SOLO LETRAS!!!

Quisiera saber si alguien sabe como escribir solo letras en un text box , si alguien tiene una funcion k realice esto mucho mejor. GRACIAS.

Private Sub Text1_KeyPress(KeyAscii As Integer)
SoloLetras KeyAscii
End Sub

Public Sub SoloLetras(CodigoAscii As Integer)
Select Case Chr(CodigoAscii)
Case "a" To "z", "A" To "Z"
'Permito la tecla de Retroceso
Case Chr(8)
Case Else
CodigoAscii = 0
End Select
End Sub

Espero te sirva. Saludos.