Funcion para caracteres validos y mayuscula

[KenMasters]

Tengo la duda de como hacer un código que al momento de escribir en un textbox, solo permita ciertos caracteres validos (letras en mayúsculas y números) solo esos caracteres, pero que realice estos cambios al momento de escribir,

yo encontré para las mayúsculas así, la cual la coloco en el evento change

Código:

    nombre = UCase(nombre)
    nombre.SelStart = Len(nombre.text)

pero me falta el del filtrado de caracteres solo validos de letras y números solo eso.

algunas idea gracias de antemano.

[pkj]

Usa el evento keypress

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub