' select the KeyPress event for the control from the
' combo boxes on the code form
private sub Text1_KeyPress (KeyAscii as Integer)
Char = Chr(KeyAscii)
If Char = <whatever> Then
<do stuff>
End If
KeyAskcii = <whatever you what to show up in the textbox>
End Sub