Visual Basic - Caja de Textos

Hola quiero que alguien me ayude URGENTE con un problemita que tengo...
Lo que pasa es que tengo un formulario y quiero que en cajas de textos que van numeros no se pueda insertar letras en el momento que el usuario lo intente hacer y viceversa que en cajas de textos destinadas para letras no se puedan introducir numeros.
Gracias por adelantado...

Para los textbox que solo debe tener numeros, pon el siguiente codigo

Private Sub txtNumeros_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub

Para los textbox que solo debe tener letras, pon el siguiente codigo

Private Sub txtLetras_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 32, 65 to 90, 97 To 122
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub

Saludos desde Lima, Peru