RE:Insertar solo caracteres en una caja de texto
En el Evento Keypress del Campo pon lo siguiente
'* Permite el Ingreso de solo numeros
Private Sub txtNumeros_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 46, 48 To 57
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub
'* Permite el Ingreso de solo letras
Private Sub txtLetras_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 122
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub
Saludos desde Lima