Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 'För att tillåta Backspace
Case 13 ' För att tillåta retur
Case Asc("0") To Asc("9") ' För att tillåta 0 - 9
Case Asc("A") To Asc("F") ' För att tillåta stora A - F
Case Asc("a") To Asc("f") ' För att tillåta små a - f
Case Else
KeyAscii = 0
End Select
End Sub