RE:como controlar en un textbox...
Mira te colocas este modulo estandar y lo llamas Entrada
Function Entrada(caracter As Integer, tipo As Byte) As Integer
Dim letra As String, vocales As String
vocales = "aeiouáéíóúAEIOUÁÉÍÓÚÀÈÌÒÙàèìòùüÜ"
Entrada = caracter
letra = Chr(caracter)
If Asc(letra) = 13 Or Asc(letra) = 8 Then
Exit Function
End If
Select Case tipo
Case 1
If (letra < "0" Or letra > "9") Then
Entrada = 0
End If
Case 2
If Not Abecedario(letra, vocales) Then Entrada = 0
Case 3
If InStr(vocales, letra) = 0 Then Entrada = 0
End Select
End Function
Function Abecedario(letra As String, vocales As String) As Boolean
letra = UCase(letra)
Abecedario = (letra >= "A" And letra <= "Z") Or _
(letra = "Ñ") Or InStr(vocales, letra) <> 0
End Function
y en el evento keypress del textbox colocas esto cuando te interese
KeyAscii = Entrada(KeyAscii, 1)
si colocas un 1 solo te coje numeros, si colocas cero solo coge letras
espero te sirva
un salu2