I've edited the function in the first post to get better error msg's. Try using it as this:
Code:

$msg = ChangeVLKey("ABCDEFGHIJKLMNOPQRSTUVWXY")
? $msg



If the function exit's with an error it is because of the GetObject. If the function complete's you get the msg that staes wether it was placed or not.