'if an error does accurr, and the user wants error messages displayed, then
'display one of the following error messages
dim lerrorcode as long
dim geterrormsg as string
lerrorcode = err()
select case lerrorcode
case 1009, 1015
geterrormsg = "the registry database is corrupt!"
case 2, 1010
geterrormsg = "bad key name"
case 1011
geterrormsg = "can't open key"
case 4, 1012
geterrormsg = "can't read key"
case 5
geterrormsg = "access to this key is denied"
case 1013
geterrormsg = "can't write key"
case 8, 14
geterrormsg = "out of memory"
case 87
geterrormsg = "invalid parameter"
case 234
geterrormsg = "there is more data than the buffer has been allocated to hold."
case else
geterrormsg = chr(13) & chr(10) & error(err())
end select
msgbox "error: " & err() & geterrormsg
exit function
