Private sub Text1_KeyPress(……)
if keyascii>=asc("0") and keyascii<=asc("9") and  keyascii>=asc("A") and keyascii<=asc("F") and  keyascii>=asc("a") and keyascii<=asc("f") Then
Else
    keyascii=0
End ifEnd Sub