Private Sub txtLösenord_KeyPress(KeyAscii As Integer)
Const SIFFROR as String = "0123456789" & vbBack

If Instr(1, SIFFROR, Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
End If
End Sub