Private Sub txtper_keypress(keyascii As Integer)
'nur Ziffern und backspace zulassen:
Select Case keyascii
    Case 48 To 57
    Case 8
    Case Else
        keyascii = 0
End Select
End Sub

---------
Ich bin zwar kein Experte, aber ich habe trotzdem keine Ahnung...