como permitir que solo se introduzca ciertos caracteres en una caja de texto

[aeb_asturias]

Hola a todos. Tengo el siguiente problema:

Quiero validar una caja de texto en el que solo quiero permitir valores alfanuméricos (A-Z, a-z, 0-9) y el simbolo "-". He creado una función que hace lo siguiente:

If Regex.IsMatch(Cadena, "[A-Z,a-z,0-9,-]") Then
Return True
End If

Return False

pero no se que pasa que si pongo por ejemplo en mi caja de texto:

*AB

me dice que esta bien validado cuando el caracter "*" en teoría no debería poder usarse.

¿Como se hace entonces ?

Un saludo

[alehawk]

proba trabajarlo con los valores chr() if asc(teclaapretada)<chr(minimo) and asc(teclaapretada)>chr(maximo) then exit sub