Visual Basic - Validando datos

Hola, Saludos a todos desde la Laguna, México.

Antes que nada gracias por leer mi nota, pasando a la pregunta (eh de mesionar que soy novato utilizando Visual Basic 6, y necesito realizar una aplicación en la cual tendré que validar los datos de inserción en un TextBox mismos que dependiendo del text box solo permitiran ingresar números y en otros solo letras, mi problema es que no se como se hace.

No soy novato en la programación, pero si en esta plataforma,
me interesaria saber si hay algún méodo que equivalga al "sdigit" de Buillder C++ o que me ayuden a sacar la longitud de la cadena contenida en el textbox para poder accesar a cada uno de los caracteres y hacer las comparaciones correspondientes, espero me puedan ayudar, de antemano gracias, y que tengan buen día.

Atte: Edgardo Mejía

Hola Edgardo yo tengo algo asi

-----------------------------------------------------------------------------------------------------------------------

SOLO LETRAS


Dim longitud As Integer
longitud = Len(Text2)
If longitud = 1 Then
Text2 = UCase(Text2)
End If
'Valor de las letras en el código Ascii=
'32=espacio, 8=<--,"0"=48 entre "9"=57, 13=enter
'Ucase:se utiliza para poner toda la cadena de string en mayúsculas.letra = Chr(KeyAscii)
letra = Chr(KeyAscii)
letra_mayus = UCase(letra)
'Asc(str):convierte una letra en su valor en el código Ascii.
b = Asc(letra_mayus)

If ((b >= 48 And b <= 57) Or b = 13) Then
KeyAscii = 0

End If

----------------------------------------------------------------------------------------------------------------------

SOLO NUMEROS



'Valor de las letras en el código Ascii=
'32=espacio, 8=<--,"0"=48 entre "9"=57, 13=enter
'Ucase:se utiliza para poner toda la cadena de string en mayúsculas.letra = Chr(KeyAscii)
letra = Chr(KeyAscii)
letra_mayus = UCase(letra)
'Asc(str):convierte una letra en su valor en el código Ascii.
b = Asc(letra_mayus)

If Not ((b >= 48 And b <= 57) Or b = 8 Or b = 13) Then
KeyAscii = 0

End If


bueno espero que te sirva un abrazo, saludos al chavo del 8 jajaja chauuuu