if Application("keyflag")="" then Application("keyflag")=0
if id<>"" Then
Application.Lock
Application("keyflag")=cint(Application("keyflag"))+1
Application("key"&cstr(Application("keyflag"))) = id
Application.Unlock
end If
if Application("keyflag")="" then Application("keyflag")=0
if id<>"" Then
Application.Lock
Application("keyflag")=cint(Application("keyflag"))+1
Application("key"&cstr(Application("keyflag"))) = id
Application.Unlock
end If