Visual Basic - validacion en ascii

hola alguien me puede ayudar en como validar por medio del codigo ascii, para que en una caja de texto me valide el signo "-", es el de menor...

gracias..........

Para esto en el evento KeyPress del la caja de texto, escribes los caracteres validos o los invalidos dependiendo del caso
Por ejemplo, blouea el caracter "-":
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45
KeyAscii = 0
End Select
End Sub

Nota Keyascii=0 bloquea el caracter

Pero si son muchos caracteres es mejor usar otra forma, este bloquea los numeros, el punto y la coma
Private Sub Text1_KeyPress(KeyAscii As Integer)
For i = 1 To 12
If KeyAscii = Asc(Mid("0123456789,.", i, 1)) Then
KeyAscii = 0
End If
Next
End Sub

Espero que te sirva